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