|
Last change
on this file since 2 was 2, checked in by bird, 22 years ago |
|
Initial revision
|
-
Property cvs2svn:cvs-rev
set to
1.1
-
Property svn:eol-style
set to
native
-
Property svn:executable
set to
*
|
|
File size:
317 bytes
|
| Line | |
|---|
| 1 | C Test case for PR fortran/9258
|
|---|
| 2 | C Origin: kmccarty@Princeton.EDU
|
|---|
| 3 | C
|
|---|
| 4 | C { dg-do compile }
|
|---|
| 5 | SUBROUTINE FOO (B)
|
|---|
| 6 |
|
|---|
| 7 | 10 CALL BAR(A)
|
|---|
| 8 | ASSIGN 20 TO M
|
|---|
| 9 | IF(100.LT.A) GOTO 10
|
|---|
| 10 | GOTO 40
|
|---|
| 11 | C
|
|---|
| 12 | 20 IF(B.LT.ABS(A)) GOTO 10
|
|---|
| 13 | ASSIGN 30 TO M
|
|---|
| 14 | GOTO 40
|
|---|
| 15 | C
|
|---|
| 16 | 30 ASSIGN 10 TO M
|
|---|
| 17 | 40 GOTO M,(10,20,30)
|
|---|
| 18 | END
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
