2 ! Test the fix for PR20903, in which derived types could be host associated within
5 ! Contributed by Joost VandeVondele <jv244@cam.ac.uk>
13 subroutine sim_1(func1,params)
15 function func1(fparams)
16 type(fcnparms) :: fparams ! { dg-error "not been declared within the interface" }
20 type(fcnparms) :: params
23 subroutine sim_2(func2,params)
25 function func2(fparams) ! This is OK because of the derived type decl.
29 type(fcnparms) :: fparams
33 type(fcnparms) :: params ! This is OK, of course
44 subroutine sim_3(func3,params)
47 function func3(fparams)
49 type(fcnparms) :: fparams ! This is OK - use associated
53 type(fcnparms) :: params ! -ditto-
56 ! { dg-final { cleanup-modules "test type_decl" } }