c: Fix up pointer types to may_alias structures [PR114493]

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

program badarray
  implicit none
  integer:: j(3) = [1,2,3]
  call doubling(j)
contains
  subroutine doubling(  n)
    integer,intent(in)::n(:)
    integer::m = size(n)      ! { dg-error "Assumed-shape array" }
    print *, m                ! { dg-error "has no IMPLICIT type" }
  end subroutine doubling
end program badarray