mirror of
https://github.com/autc04/Retro68.git
synced 2024-09-28 18:56:06 +00:00
38 lines
639 B
Fortran
38 lines
639 B
Fortran
! { dg-do compile }
|
|
!
|
|
! PR 40089: Public type with public component which has a private type
|
|
!
|
|
! Original test case by Juergen Reuter <reuter@physik.uni-freiburg.de>
|
|
! Adapted by Janus Weil <janus@gcc.gnu.org>
|
|
|
|
module m
|
|
|
|
implicit none
|
|
private
|
|
|
|
public :: public_t
|
|
|
|
type :: private_t
|
|
integer :: i
|
|
end type
|
|
|
|
type :: public_t
|
|
type(private_t), pointer :: public_comp_with_private_type
|
|
procedure(ifc) , nopass, pointer :: ppc
|
|
end type
|
|
|
|
abstract interface
|
|
integer function ifc ()
|
|
end function
|
|
end interface
|
|
|
|
end module m
|
|
|
|
program test
|
|
use m
|
|
implicit none
|
|
type(public_t) :: x
|
|
integer :: j
|
|
j = x%ppc()
|
|
end
|