blob: 3f65846b3e58ca155dc5cef788ebf98a9c2e1054 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
! { 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
! { dg-final { cleanup-modules "touching" } }
|