mirror of
https://github.com/llvm/llvm-project.git
synced 2025-04-17 03:26:48 +00:00
3f55311a0a
D142279 enabled assertion in libstdc++ and one was triggered in the PFTBuilder because an optional was access even if it was null. This patch fix this issue and add a regression test. Reviewed By: jeanPerier Differential Revision: https://reviews.llvm.org/D143589
22 lines
382 B
Fortran
Executable File
22 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
|
|
|