blob: 32097e3fd38bb8cbf706494bfc34d80118418a54 (
plain)
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
|