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