2 ! Tests the fix for PR37794 a regression where a bit of redundant code caused an ICE.
4 ! Contributed by Jonathan Hogg <J.Hogg@rl.ac.uk>
11 end type of01_data_private
14 type (of01_data_private
) :: private
21 type of01_data_private
23 end type of01_data_private
27 use m1
, of01_rdata
=> of01_data
28 use m2
, of01_idata
=> of01_data
! { dg-error "not found in module" }
33 ! { dg-final { cleanup-modules "m1 m2 test_mod" } }