gcc/testsuite/gfortran.dg/pr81027.f90


1
2
3
4
5
6
7
8
9
10
11

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