22 lines · plain
1! RUN: %flang_fc1 -fdebug-pre-fir-tree -fopenacc %s | FileCheck %s2 program rewrite_goto3 integer b4 5 b = dummy(10)6 7 end8 function dummy(a)9 integer, a10 11 do 10 i=1,1012 10 if(i .EQ. 1) GOTO 1113 i=014 11 dummy = a + i15 return16 end17 18! CHECK: <<IfConstruct!>> -> 519! CHECK: 2 ^IfStmt -> 5: 10if(i.eq.1)goto1120! CHECK: 3 ^GotoStmt! -> 7: goto1121 22