| ! { dg-do compile } | |
| ! PR fortran/37429 | |
| ! This used to ICE, check that is fixed. | |
| MODULE touching | |
| IMPLICIT NONE | |
| TYPE :: EqnSys33 | |
| CONTAINS | |
| PROCEDURE, NOPASS :: solve1 | |
| END TYPE EqnSys33 | |
| CONTAINS | |
| FUNCTION solve1 () | |
| IMPLICIT NONE | |
| REAL :: solve1(3) | |
| solve1 = 0.0 | |
| END FUNCTION solve1 | |
| SUBROUTINE fill_gap () | |
| IMPLICIT NONE | |
| TYPE(EqnSys33) :: sys | |
| REAL :: res | |
| res = sys%solve1 () ! { dg-error "Incompatible rank" } | |
| END SUBROUTINE fill_gap | |
| END MODULE touching |