aboutsummaryrefslogtreecommitdiff
path: root/flang/test/Lower/assign-statement.f90
diff options
context:
space:
mode:
Diffstat (limited to 'flang/test/Lower/assign-statement.f90')
-rw-r--r--flang/test/Lower/assign-statement.f9012
1 files changed, 12 insertions, 0 deletions
diff --git a/flang/test/Lower/assign-statement.f90 b/flang/test/Lower/assign-statement.f90
new file mode 100644
index 0000000..342355bf
--- /dev/null
+++ b/flang/test/Lower/assign-statement.f90
@@ -0,0 +1,12 @@
+! RUN: bbc -emit-fir -o - %s | FileCheck %s
+
+ ! CHECK-LABEL: func @_QQmain
+ program main
+ integer :: ip
+ pointer :: ip
+
+ allocate(ip)
+ assign 10 to ip
+ ! CHECK: fir.store %c10_i32 to %11 : !fir.ptr<i32>
+ 10 return
+ end program main