gcc/testsuite/gfortran.dg/pr103258.f90

   1 ! { dg-do compile }
   2 ! { dg-additional-options "-Wno-pedantic" }
   3 !
   4 ! Test from PR103258.  This used to ICE due to incorrectly marking the
   5 ! no-implicit-type error for n and m in the character length expression
   6 ! as already diagnosed during early resolution, when in fact errors are
   7 ! ignored in that parsing context.  We now expect the errors to be diagnosed
   8 ! at the point of the first use of each symbol.
   9
  10 subroutine s(n) ! { dg-error "Symbol 'n' .*has no IMPLICIT type" }
  11 implicit none
  12 character(n+m) :: c ! { dg-error "Symbol 'm' .*has no IMPLICIT type" }
  13 entry e(m)
  14 end