[flang-commits] [flang] [Flang][OpenMP] Fix comments that should not be Sentinels on fixed format. (PR #68911)
Roger Ferrer Ibáñez via flang-commits
flang-commits at lists.llvm.org
Fri Oct 13 05:51:28 PDT 2023
================
@@ -0,0 +1,39 @@
+! RUN: %flang_fc1 -fopenmp -E %s | FileCheck %s
+! CHECK: program main
+! CHECK: interface
+! CHECK: subroutine sub(a)
+! CHECK:!dir$ ignore_tkr a
+! CHECK: real(4):: a
+! CHECK: end subroutine
+! CHECK: end interface
+! CHECK: PRINT *, "Is ' '"
+! CHECK: 123 PRINT *, "Is '123 '"
+
+!@cuf subroutine atcuf;
+ program main
+ interface
+ subroutine sub(a)
+!dir$ ignore_tkr a
----------------
rofirrim wrote:
Can you add a second dummy argument (say `b`) and split an `ignore_tkr` directive like so (mind the extra blank at the beginning of the continuing line), so we have a test for a continuation as well?
```fortran
subroutine sub(a, b)
!dir$ ignore_tkr
!dir$+ b
!dir$ ignore_tkr a
real(4):: a, b
```
https://github.com/llvm/llvm-project/pull/68911
More information about the flang-commits
mailing list