| !{ dg-do compile } | |
| !{ dg-options "-fcoarray=lib" } | |
| ! Check that PR fortran/88624 is fixed. | |
| ! Contributed by Modrzejewski <m.modrzejewski@student.uw.edu.pl> | |
| ! Reduced to the essence of the issue. | |
| program test | |
| implicit none | |
| integer, dimension(:), allocatable :: x[:] | |
| call g(x) | |
| contains | |
| subroutine g(x) | |
| integer, dimension(:), allocatable :: x[:] | |
| call g2(x) | |
| end subroutine g | |
| subroutine g2(x) | |
| integer, dimension(:) :: x[*] | |
| end subroutine g2 | |
| end program test | |