?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
PR ipa/83051
[official-gcc.git] / gcc / testsuite / gfortran.dg / assumed_rank_5.f90
blobf3d633d12ab96920c5bf27718c362512c1e3eab7
1 ! { dg-do compile }
2 ! { dg-options "-std=f2008" }
3 !
4 ! PR fortran/48820
5 !
6 !
7 subroutine foo(x)
8 integer :: x(..) ! { dg-error "TS 29113/TS 18508: Assumed-rank array" }
9 end subroutine foo
Mirror of the offical gcc git repository hosted at gcc.gnu.org