gcc/testsuite/gfortran.dg/der_charlen_1.f90

   1 ! { dg-do compile }
   2 ! PR 18990
   3 ! we used to ICE on these examples
   4 module core
   5   type, public  :: T
   6      character(len=I)  :: str ! { dg-error "needs to be a constant specification expression" }
   7   end type T
   8   private
   9 CONTAINS
  10   subroutine FOO(X)
  11     type(T), intent(in)          :: X
  12   end subroutine
  13 end module core
  14
  15 module another_core
  16   type :: T
  17      character(len=*)  :: s ! { dg-error "needs to be a constant specification expr" }
  18   end type T
  19   private
  20 CONTAINS
  21   subroutine FOO(X)
  22     type(T), intent(in)          :: X
  23   end subroutine
  24 end module another_core
  25
  26 ! { dg-final { cleanup-modules "core another_core" } }