blob: 3b47210fb40f00c75659e324324821d7b7364711 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
C Test case for PR debug/105203
C Origin: kmccarty@princeton.edu
C
C { dg-do compile }
C { dg-options "-O2 -fcompare-debug -ftracer -w" }
C { dg-additional-options "-fPIC" { target fpic } }
SUBROUTINE FOO (B)
10 CALL BAR (A)
ASSIGN 20 TO M
IF (100.LT.A) GOTO 10
GOTO 40
C
20 IF (B.LT.ABS(A)) GOTO 10
ASSIGN 30 TO M
GOTO 40
C
30 ASSIGN 10 TO M
40 GOTO M,(10,20,30)
END
|