33 lines
546 B
Fortran
33 lines
546 B
Fortran
! { dg-do compile }
|
|
! Test fix for F95 part of PR39800, in which the host association of the type 't1'
|
|
! generated an error.
|
|
!
|
|
! Reported to clf by Alexei Matveev <Alexei Matveev@gmail.com> and reported by
|
|
! Tobias Burnus <burnus@gcc.gnu.org>
|
|
!
|
|
module m
|
|
implicit none
|
|
private
|
|
|
|
type :: t1
|
|
integer :: i
|
|
end type
|
|
|
|
type :: t2
|
|
type(t1) :: j
|
|
end type
|
|
|
|
contains
|
|
|
|
subroutine sub()
|
|
implicit none
|
|
|
|
type :: t3
|
|
type(t1) :: j
|
|
end type
|
|
|
|
end subroutine
|
|
|
|
end module
|
|
! { dg-final { cleanup-modules "m" } }
|