gcc/testsuite/gfortran.dg/pr96099_2.f90


1
2
3
4
5
6
7
8
9

! { dg-do compile }

program pr96099_2
   integer n1
   parameter (n1 = 1)
   implicit class(t) (n1) ! { dg-error "Syntax error in IMPLICIT" }
   type t
   end type
end