?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
re PR fortran/78741 (ICE in gfc_get_symbol_decl, at fortran/trans-decl.c:1534)
[official-gcc.git] / gcc / testsuite / gfortran.dg / pr61775.f90
blob48ef3cbcbc3d7178e2feacb4152d8e547aebce78
1 ! { dg-do run }
2 ! PR fortran/61775.f90
3 program pi
4 real, allocatable :: x(:)
5 integer :: n
6 n = 10000
7 x = [ (i,i=1,n) ]
8 if (x(n) /= 10000) stop 1
9 end program pi
Mirror of the offical gcc git repository hosted at gcc.gnu.org