gcc/testsuite/gfortran.dg/private_type_13.f90

   1 ! { dg-do compile }
   2 ! Test fix for F95 part of PR39800, in which the host association of the type 't1'
   3 ! generated an error.
   4 !
   5 ! Reported to clf by Alexei Matveev <Alexei Matveev@gmail.com> and reported by
   6 ! Tobias Burnus  <burnus@gcc.gnu.org>
   7 !
   8 module m
   9   implicit none
  10   private
  11
  12   type :: t1
  13     integer :: i
  14   end type
  15
  16   type :: t2
  17     type(t1) :: j
  18   end type
  19
  20   contains
  21
  22     subroutine sub()
  23       implicit none
  24
  25       type :: t3
  26         type(t1) :: j
  27       end type
  28
  29     end subroutine
  30
  31 end module
  32 ! { dg-final { cleanup-modules "m" } }