diff options
Diffstat (limited to 'flang/test/Transforms/dummy-procedure-common-block-name.f')
| -rw-r--r-- | flang/test/Transforms/dummy-procedure-common-block-name.f | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/flang/test/Transforms/dummy-procedure-common-block-name.f b/flang/test/Transforms/dummy-procedure-common-block-name.f new file mode 100644 index 000000000000..2c3ebb965fe4 --- /dev/null +++ b/flang/test/Transforms/dummy-procedure-common-block-name.f @@ -0,0 +1,12 @@ +! RUN: bbc -emit-fir %s -o - | FileCheck %s + +subroutine ss5() +common /com_dummy1/ x +! CHECK: fir.global common @com_dummy1_ +interface + subroutine com_dummy1() + end subroutine +end interface +! CHECK: func.func private @_QPcom_dummy1() +print *,fun_sub(com_dummy1) +end |