27 lines
624 B
Fortran
27 lines
624 B
Fortran
|
! { dg-do compile }
|
||
|
! PR 18990
|
||
|
! we used to ICE on these examples
|
||
|
module core
|
||
|
type, public :: T
|
||
|
character(len=I) :: str ! { dg-error "needs to be a constant specification expression" }
|
||
|
end type T
|
||
|
private
|
||
|
CONTAINS
|
||
|
subroutine FOO(X)
|
||
|
type(T), intent(in) :: X
|
||
|
end subroutine
|
||
|
end module core
|
||
|
|
||
|
module another_core
|
||
|
type :: T
|
||
|
character(len=*) :: s ! { dg-error "needs to be a constant specification expr" }
|
||
|
end type T
|
||
|
private
|
||
|
CONTAINS
|
||
|
subroutine FOO(X)
|
||
|
type(T), intent(in) :: X
|
||
|
end subroutine
|
||
|
end module another_core
|
||
|
|
||
|
! { dg-final { cleanup-modules "core another_core" } }
|