gcc-4.9/gcc/testsuite/gfortran.dg/forall_16.f90


1
2
3
4
5
6
7
8
9

! { dg-do compile }
! PR fortran/50540
!
  implicit none
  integer i,dest(10)
  forall (i=2:ix)  dest(i)=i ! { dg-error "has no IMPLICIT type" }
end

! { dg-excess-errors "Can't convert UNKNOWN to INTEGER" }