arm: Add .type and .size to __gnu_cmse_nonsecure_call [PR115360]

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

! { dg-do compile }
! { dg-options "-Ofast" }
program p
   integer :: i
   real :: z(2,4)
   z = 0.0
   do i = 1, 3
      if ( z(i) > z(1,i+1) ) print *, i   ! { dg-error "mismatch in array reference" }
   end do
end