[flang-commits] [flang] f31ec68 - [NFC][flang] Add the test case for D125371

[Peixin Qiao via flang-commits]

Author: Peixin Qiao
Date: 2022-06-22T23:53:38+08:00
New Revision: f31ec689b22ae874398fc44c8950e5671cedfa20

URL: https://github.com/llvm/llvm-project/commit/f31ec689b22ae874398fc44c8950e5671cedfa20
DIFF: https://github.com/llvm/llvm-project/commit/f31ec689b22ae874398fc44c8950e5671cedfa20.diff

LOG: [NFC][flang] Add the test case for D125371

This adds the test case with portability warning preparing for D125804,
which supports checking for portability warnings in test_errors.py.

Reviewed By: ekieri

Differential Revision: https://reviews.llvm.org/D127821

Added: 
    flang/test/Semantics/long-name.f90

Modified: 
    

Removed: 
    


################################################################################
diff  --git a/flang/test/Semantics/long-name.f90 b/flang/test/Semantics/long-name.f90
new file mode 100644
index 0000000000000..8576bf8e10a42
--- /dev/null
+++ b/flang/test/Semantics/long-name.f90
@@ -0,0 +1,14 @@
+! RUN: %python %S/test_errors.py %s %flang_fc1
+
+!WARNING: aaaaaaaaaabbbbbbbbbbccccccccccddddddddddeeeeeeeeeeffffffffffggg1 has length 64, which is greater than the maximum name length 63
+program aaaaaaaaaabbbbbbbbbbccccccccccddddddddddeeeeeeeeeeffffffffffggg1
+
+  !WARNING: aaaaaaaaaabbbbbbbbbbccccccccccddddddddddeeeeeeeeeeffffffffffggg2 has length 64, which is greater than the maximum name length 63
+  integer :: aaaaaaaaaabbbbbbbbbbccccccccccddddddddddeeeeeeeeeeffffffffffggg2
+
+  integer :: aaaaaaaaaabbbbbbbbbbccccccccccddddddddddeeeeeeeeeeffffffffffggg
+
+  !WARNING: aaaaaaaaaabbbbbbbbbbccccccccccddddddddddeeeeeeeeeeffffffffffggg3 has length 64, which is greater than the maximum name length 63
+  call aaaaaaaaaabbbbbbbbbbccccccccccddddddddddeeeeeeeeeeffffffffffggg3
+
+end