| ! { dg-do compile } |
| ! { dg-options "-Warray-temporaries" } |
| ! Test fix for incorrectly passing array component to unlimited polymorphic procedure |
| |
| module test_PR105658_mod |
| implicit none |
| type :: foo |
| integer :: member1 |
| integer :: member2 |
| end type foo |
| contains |
| subroutine print_poly(array) |
| class(*), dimension(:), intent(in) :: array |
| select type(array) |
| type is (integer) |
| print*, array |
| type is (character(*)) |
| print *, array |
| end select |
| end subroutine print_poly |
| |
| subroutine do_print(thing) |
| type(foo), dimension(3), intent(in) :: thing |
| type(foo), parameter :: y(3) = [foo(1,2),foo(3,4),foo(5,6)] |
| integer :: i, j, uu(5,6) |
| |
| call print_poly(thing%member1) ! { dg-warning "array temporary" } |
| call print_poly(y%member2) ! { dg-warning "array temporary" } |
| call print_poly(y(1::2)%member2) ! { dg-warning "array temporary" } |
| |
| ! The following array sections work without temporaries |
| uu = reshape([(((10*i+j),i=1,5),j=1,6)],[5,6]) |
| print *, uu(2,2::2) |
| call print_poly (uu(2,2::2)) ! no temp needed! |
| print *, uu(1::2,6) |
| call print_poly (uu(1::2,6)) ! no temp needed! |
| end subroutine do_print |
| |
| subroutine do_print2(thing2) |
| class(foo), dimension(:), intent(in) :: thing2 |
| call print_poly (thing2% member2) ! { dg-warning "array temporary" } |
| end subroutine do_print2 |
| |
| subroutine do_print3 () |
| character(3) :: c(3) = ["abc","def","ghi"] |
| call print_poly (c(1::2)) ! no temp needed! |
| call print_poly (c(1::2)(2:3)) ! { dg-warning "array temporary" } |
| end subroutine do_print3 |
| |
| end module test_PR105658_mod |
