* gcc.target/i386/mpx/hard-reg-1-nov.c (mpx_test): Use "esp"

[official-gcc.git] / gcc / testsuite / gfortran.dg / pr71688.f90

! { dg-do compile }
! { dg-options "-fcoarray=lib" }

program p
   call s
contains
   subroutine s
      real :: x[*] = 1
      block
      end block
      x = 2
   end
end