gcc/testsuite/gfortran.dg/submodule_unexp.f90


1
2
3
4
5
6
7
8

! { dg-do compile }
! PR fortran/69498
! This used to ICE
program p
   type t
   submodule (m) sm ! { dg-error "SUBMODULE declaration at" }
   end type
end