1! { dg-do run } 2! { dg-options "-std=gnu" } 3! 4! Tests the fix for PR31483, in which dummy argument procedures 5! produced an ICE if they had an alternate return. 6! 7! Contributed by Mathias Fr�hlich <M.Froehlich@science-computing.de> 8 9 SUBROUTINE R (i, *, *) 10 INTEGER i 11 RETURN i 12 END 13 14 SUBROUTINE PHLOAD (READER, i, res) 15 IMPLICIT NONE 16 EXTERNAL READER 17 integer i 18 character(3) res 19 CALL READER (i, *1, *2) 20 1 res = "one" 21 return 22 2 res = "two" 23 return 24 END 25 26 EXTERNAL R 27 character(3) res 28 call PHLOAD (R, 1, res) 29 if (res .ne. "one") call abort () 30 CALL PHLOAD (R, 2, res) 31 if (res .ne. "two") call abort () 32 END 33