| ! RUN: %flang_fc1 -fdebug-pre-fir-tree -fopenacc %s | FileCheck %s | |
| program rewrite_goto | |
| integer b | |
| b = dummy(10) | |
| end | |
| function dummy(a) | |
| integer, a | |
| do 10 i=1,10 | |
| 10 if(i .EQ. 1) GOTO 11 | |
| i=0 | |
| 11 dummy = a + i | |
| return | |
| end | |
| ! CHECK: <<IfConstruct!>> -> 5 | |
| ! CHECK: 2 ^IfStmt -> 5: 10if(i.eq.1)goto11 | |
| ! CHECK: 3 ^GotoStmt! -> 7: goto11 | |