flang/test/Lower/pre-fir-tree08.f

   1 ! RUN: %flang_fc1 -fdebug-pre-fir-tree -fopenacc %s | FileCheck %s
   2         program rewrite_goto
   3         integer b
   4
   5         b = dummy(10)
   6
   7         end
   8       function dummy(a)
   9       integer, a
  10
  11       do 10 i=1,10
  12   10  if(i .EQ. 1) GOTO 11
  13       i=0
  14   11  dummy = a + i
  15       return
  16       end
  17
  18 ! CHECK: <<IfConstruct!>> -> 5
  19 ! CHECK: 2 ^IfStmt -> 5: 10if(i.eq.1)goto11
  20 ! CHECK: 3 ^GotoStmt! -> 7: goto11
  21