1! { dg-do compile } 2 3! PR fortran/37429 4! This used to ICE, check that is fixed. 5 6MODULE touching 7 IMPLICIT NONE 8 9 TYPE :: EqnSys33 10 CONTAINS 11 PROCEDURE, NOPASS :: solve1 12 END TYPE EqnSys33 13 14CONTAINS 15 16 FUNCTION solve1 () 17 IMPLICIT NONE 18 REAL :: solve1(3) 19 solve1 = 0.0 20 END FUNCTION solve1 21 22 SUBROUTINE fill_gap () 23 IMPLICIT NONE 24 TYPE(EqnSys33) :: sys 25 REAL :: res 26 27 res = sys%solve1 () ! { dg-error "Incompatible rank" } 28 END SUBROUTINE fill_gap 29 30END MODULE touching 31