2 ! { dg-options "-fdec-structure" }
4 ! Verify that the comparisons in gfc_compare_derived_types can correctly
5 ! match nested anonymous subtypes.
27 subroutine sub0 (u
) ! regression: Interface mismatch.*Type mismatch
37 call sub0(u
) ! regression: Type mismatch in argument
77 call sub0(u
) ! regression: Type mismatch in argument