[PATCH] D118982: [flang] Add test for quiet with local variable in STOP stmt

[Valentin Clement via Phabricator via llvm-commits]

clementval created this revision.
Herald added a project: Flang.
clementval requested review of this revision.
Herald added subscribers: llvm-commits, jdoerfert.
Herald added a project: LLVM.

Depends on D118978 <https://reviews.llvm.org/D118978>.


Repository:
  rG LLVM Github Monorepo

https://reviews.llvm.org/D118982

Files:
  flang/test/Lower/stop-statement.f90


Index: flang/test/Lower/stop-statement.f90
===================================================================
--- flang/test/Lower/stop-statement.f90
+++ flang/test/Lower/stop-statement.f90
@@ -38,3 +38,15 @@
  ! CHECK: fir.call @_Fortran{{.*}}StopStatement(%[[c0]], %[[false]], %[[true]])
  ! CHECK-NEXT: fir.unreachable
 end subroutine
+
+! CHECK-LABEL stop_quiet
+subroutine stop_quiet()
+  logical :: b
+  stop, quiet = b
+ ! CHECK-DAG: %[[c0:.*]] = arith.constant 0 : i32
+ ! CHECK-DAG: %[[false:.*]] = arith.constant false
+ ! CHECK-DAG: %[[b:.*]] = fir.load %{{.*}}
+ ! CHECK-DAG: %[[bi1:.*]] = fir.convert %[[b]] : (!fir.logical<4>) -> i1
+ ! CHECK: fir.call @_Fortran{{.*}}StopStatement(%[[c0]], %[[false]], %[[bi1]])
+ ! CHECK-NEXT: fir.unreachable
+end subroutine


-------------- next part --------------
A non-text attachment was scrubbed...
Name: D118982.405906.patch
Type: text/x-patch
Size: 776 bytes
Desc: not available
URL: <http://lists.llvm.org/pipermail/llvm-commits/attachments/20220204/20e67c14/attachment.bin>