gcc/testsuite/gfortran.dg/pr83246.f90


1
2
3
4
5
6
7
8
9

! PR fortran/83246
! { dg-do link }
   program dusty_corner 
   write(*,*)'BLOCK TESTS' 
   MAKEDATAP: block
   integer,parameter :: scratch(*)=[1,2,3]
   write(*,*)scratch
   endblock MAKEDATAP
   end program dusty_corner