| ! { dg-do run } | |
| ! | |
| ! This tests the (partial) fix for PR35830, i.e. handling array arguments | |
| ! with the PROCEDURE statement. | |
| ! | |
| ! Contributed by Janus Weil <janus@gcc.gnu.org> | |
| module m | |
| contains | |
| subroutine one(a) | |
| integer a(1:3) | |
| if (any(a /= [1,2,3])) STOP 1 | |
| end subroutine one | |
| end module m | |
| program test | |
| use m | |
| implicit none | |
| call foo(one) | |
| contains | |
| subroutine foo(f) | |
| procedure(one) :: f | |
| call f([1,2,3]) | |
| end subroutine foo | |
| end program test |