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