PR inline-asm/84742

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

! { dg-do compile }
! { dg-options "-fimplicit-none" }
subroutine s(n) ! { dg-error "has no IMPLICIT type" }
   character(n) :: c  ! { dg-error "Scalar INTEGER expression expected" }
   c = 'c' ! { dg-error "has no IMPLICIT type" }
end