Mercurial > hg > CbC > CbC_gcc
comparison gcc/testsuite/gfortran.dg/pr69554-1.F90 @ 111:04ced10e8804
gcc 7
| author | kono |
|---|---|
| date | Fri, 27 Oct 2017 22:46:09 +0900 |
| parents | |
| children |
comparison
equal
deleted
inserted
replaced
| 68:561a7518be6b | 111:04ced10e8804 |
|---|---|
| 1 ! { dg-do compile } | |
| 2 ! { dg-options "-fdiagnostics-show-caret" } | |
| 3 ! { dg-allow-blank-lines-in-output 1 } | |
| 4 | |
| 5 program main | |
| 6 goto 1000 | |
| 7 1000 continue ! first instance | |
| 8 a = a | |
| 9 a = a | |
| 10 a = a | |
| 11 1000 continue ! second instance | |
| 12 end | |
| 13 | |
| 14 #if 0 | |
| 15 ! { dg-locus "4" "" { target *-*-* } "7" } | |
| 16 ! { dg-begin-multiline-output "" } | |
| 17 | |
| 18 1000 continue ! first instance | |
| 19 1 | |
| 20 ! { dg-end-multiline-output "" } | |
| 21 ! { dg-locus "4" "" { target *-*-* } "11" } | |
| 22 ! { dg-begin-multiline-output "" } | |
| 23 | |
| 24 1000 continue ! second instance | |
| 25 2 | |
| 26 Error: Duplicate statement label 1000 at (1) and (2) | |
| 27 ! { dg-end-multiline-output "" } | |
| 28 #endif |