4 ! Checks for assignments from type-bound functions.
11 PROCEDURE, NOPASS :: solve1
12 PROCEDURE, NOPASS :: solve2
13 PROCEDURE, NOPASS :: solve3
24 CHARACTER(len=5) FUNCTION solve2 ()
29 REAL FUNCTION solve3 ()
34 SUBROUTINE fill_gap ()
38 REAL :: resArr(3), resSmall(2)
40 res = sys%solve1 () ! { dg-error "Incompatible rank" }
41 res = sys%solve2 () ! { dg-error "Can't convert" }
42 resSmall = sys%solve1 () ! { dg-error "Different shape" }
45 resArr = sys%solve1 ()
46 END SUBROUTINE fill_gap