| ! { dg-do run } |
| ! Test the fix for PR114280 in which inquiry references of associate names |
| ! of as yet unparsed function selectors failed. |
| ! Contributed by Steve Kargl <> |
| program paul2 |
| implicit none |
| type t |
| real :: re |
| end type t |
| real :: comp = 1, repart = 10, impart =100 |
| call foo |
| contains |
| subroutine foo () |
| associate (x => bar1()) |
| ! 'x' identified as complex from outset |
| if (int(x%im) .ne. 100) stop 1 ! Has no IMPLICIT type |
| if (int(x%re) .ne. 10) stop 2 |
| end associate |
| |
| associate (x => bar1()) |
| ! 'x' identified as derived then corrected to complex |
| if (int(x%re) .ne. 11) stop 3 ! Has no IMPLICIT type |
| if (int(x%im) .ne. 101) stop 4 |
| if (x%kind .ne. kind(1.0)) stop 5 |
| end associate |
| |
| associate (x => bar1()) |
| if (x%kind .ne. kind(1.0)) stop 6 ! Invalid character in name |
| end associate |
| |
| associate (x => bar2()) |
| if (int(x%re) .ne. 1) stop 7 ! Invalid character in name |
| end associate |
| |
| associate (xx => bar3()) |
| if (xx%len .ne. 8) stop 8 ! Has no IMPLICIT type |
| if (trim (xx) .ne. "Nice one") stop 9 |
| if (xx(6:8) .ne. "one") stop 10 |
| end associate |
| |
| ! Now check the array versions |
| associate (x => bar4()) |
| if (any (int(abs (x(:) + 2.0)) .ne. [104,105])) stop 0 |
| if (int(x(2)%re) .ne. 14) stop 11 |
| if (any (int(x%im) .ne. [103,104])) stop 12 |
| if (any (int(abs(x)) .ne. [103,104])) stop 13 |
| end associate |
| |
| associate (x => bar5()) |
| if (x(:)%kind .ne. kind("A")) stop 14 |
| if (x(2)%len .ne. 4) stop 15 |
| if (x%len .ne. 4) stop 16 |
| if (x(2)(1:3) .ne. "two") stop 17 |
| if (any(x .ne. ["one ", "two "])) stop 18 |
| end associate |
| end |
| complex function bar1 () |
| bar1 = cmplx(repart, impart) |
| repart = repart + 1 |
| impart = impart + 1 |
| end |
| type(t) function bar2 () |
| bar2% re = comp |
| comp = comp + 1 |
| end |
| character(8) function bar3 () |
| bar3 = "Nice one!" |
| end |
| function bar4 () result (res) |
| complex, allocatable, dimension(:) :: res |
| res = [cmplx(repart, impart),cmplx(repart+1, impart+1)] |
| repart = repart + 2 |
| impart = impart + 2 |
| end |
| function bar5 () result (res) |
| character(4), allocatable, dimension(:) :: res |
| res = ["one ", "two "] |
| end |
| end |
