21 lines
382 B
Fortran
Executable file
21 lines
382 B
Fortran
Executable file
! 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
|
|
|