| ! { dg-do run } |
| ! Tests the fix for PR31483, in which dummy argument procedures |
| ! produced an ICE if they had an alternate return. |
| ! |
| ! Contributed by Mathias Frรถhlich <M.Froehlich@science-computing.de> |
| |
| SUBROUTINE R (i, *, *) |
| INTEGER i |
| RETURN i |
| END |
| |
| SUBROUTINE PHLOAD (READER, i, res) |
| IMPLICIT NONE |
| EXTERNAL READER |
| integer i |
| character(3) res |
| CALL READER (i, *1, *2) |
| 1 res = "one" |
| return |
| 2 res = "two" |
| return |
| END |
| |
| EXTERNAL R |
| character(3) res |
| call PHLOAD (R, 1, res) |
| if (res .ne. "one") call abort () |
| CALL PHLOAD (R, 2, res) |
| if (res .ne. "two") call abort () |
| END |