Added auto ported tests with manual exceptions:

Manual: * modfile09-*.f90 tests depend on being run together as some tests have dependencies on modules created by other tests. This will need separating out when porting away from test_modfile.sh, but for now, added modfile09-*.f90 to the Inputs directory and added a single tests modfile09.f90 to hold the run line. * getdefinition03-a.f90 includes a non-test file getdefinition03-b.f90. Manually edited the former to find the latter in Inputs so as to add only one test. * Same pattern for getsymbols03-{a,b}.f90 Auto: * Remaining tests have a lit RUN line added to them based on the type of test they are. * Failing tests also have an XFAIL line added to them. * Generic tests have their pre-existing RUN lines replaced with the word "EXEC" to avoid conflict with the added lit RUN line.
LukeIreland1 · Mar 6, 2020 · c22ce5e · c22ce5e
1 parent b9667dc
commit c22ce5e
Show file tree

Hide file tree

Showing 413 changed files with 464 additions and 74 deletions.
diff --git a/test-lit/Driver/version_test.f90 → test/Driver/version_test.f90 b/test-lit/Driver/version_test.f90 → test/Driver/version_test.f90
diff --git a/test/Evaluate/folding01.f90 b/test/Evaluate/folding01.f90
@@ -1,3 +1,4 @@
+! RUN: %S/test_folding.sh %s %flang %t
 
 ! Test intrinsic operation folding
 

diff --git a/test/Evaluate/folding02.f90 b/test/Evaluate/folding02.f90
@@ -1,3 +1,4 @@
+! RUN: %S/test_folding.sh %s %flang %t
 ! Check intrinsic function folding with host runtime library
 
 module m

diff --git a/test/Evaluate/folding03.f90 b/test/Evaluate/folding03.f90
@@ -1,3 +1,4 @@
+! RUN: %S/test_folding.sh %s %flang %t
 ! Test operation folding edge case (both expected value and messages)
 ! These tests make assumptions regarding real(4) and integer(4) extrema.
 

diff --git a/test/Evaluate/folding04.f90 b/test/Evaluate/folding04.f90
@@ -1,3 +1,4 @@
+! RUN: %S/test_folding.sh %s %flang %t
 ! Test intrinsic function folding edge case (both expected value and messages)
 ! These tests make assumptions regarding real(4) extrema.
 

diff --git a/test/Evaluate/folding05.f90 b/test/Evaluate/folding05.f90
diff --git a/test/Evaluate/folding06.f90 b/test/Evaluate/folding06.f90
@@ -1,3 +1,4 @@
+! RUN: %S/test_folding.sh %s %flang %t
 ! Test transformational intrinsic function folding
 
 module m

diff --git a/test/Evaluate/folding07.f90 b/test/Evaluate/folding07.f90
@@ -1,3 +1,4 @@
+! RUN: %S/test_folding.sh %s %flang %t
 ! Test numeric model inquiry intrinsics
 
 module m

diff --git a/test/Evaluate/folding08.f90 b/test/Evaluate/folding08.f90
@@ -1,3 +1,4 @@
+! RUN: %S/test_folding.sh %s %flang %t
 ! Test folding of LBOUND and UBOUND
 
 module m

diff --git a/test/Evaluate/folding09.f90 b/test/Evaluate/folding09.f90
@@ -1,3 +1,4 @@
+! RUN: %S/test_folding.sh %s %flang %t
 ! Test folding of IS_CONTIGUOUS on simply contiguous items (9.5.4)
 ! When IS_CONTIGUOUS() is constant, it's .TRUE.
 

diff --git a/test-lit/Lower/pre-fir-tree01.f90 → test/Lower/pre-fir-tree01.f90 b/test-lit/Lower/pre-fir-tree01.f90 → test/Lower/pre-fir-tree01.f90
diff --git a/test-lit/Lower/pre-fir-tree02.f90 → test/Lower/pre-fir-tree02.f90 b/test-lit/Lower/pre-fir-tree02.f90 → test/Lower/pre-fir-tree02.f90
diff --git a/test-lit/Lower/pre-fir-tree03.f90 → test/Lower/pre-fir-tree03.f90 b/test-lit/Lower/pre-fir-tree03.f90 → test/Lower/pre-fir-tree03.f90
diff --git a/test-lit/Lower/pre-fir-tree04.f90 → test/Lower/pre-fir-tree04.f90 b/test-lit/Lower/pre-fir-tree04.f90 → test/Lower/pre-fir-tree04.f90
diff --git a/test/Preprocessing/pp001.F b/test/Preprocessing/pp001.F
@@ -1,3 +1,4 @@
+! RUN: %flang -E %s
 * keyword macros
       integer, parameter :: KWM = 666
 #define KWM 777

diff --git a/test/Preprocessing/pp002.F b/test/Preprocessing/pp002.F
@@ -1,3 +1,4 @@
+! RUN: %flang -E %s
 * #undef
       integer, parameter :: KWM = 777
 #define KWM 666

diff --git a/test/Preprocessing/pp003.F b/test/Preprocessing/pp003.F
@@ -1,3 +1,4 @@
+! RUN: %flang -E %s
 * function-like macros
       integer function IFLM(x)
         integer :: x

diff --git a/test/Preprocessing/pp004.F b/test/Preprocessing/pp004.F
@@ -1,3 +1,4 @@
+! RUN: %flang -E %s
 * KWMs case-sensitive
       integer, parameter :: KWM = 777
 #define KWM 666

diff --git a/test/Preprocessing/pp005.F b/test/Preprocessing/pp005.F
@@ -1,3 +1,4 @@
+! RUN: %flang -E %s
 * KWM split across continuation, implicit padding
       integer, parameter :: KWM = 666
 #define KWM 777

diff --git a/test/Preprocessing/pp006.F b/test/Preprocessing/pp006.F
@@ -1,3 +1,4 @@
+! RUN: %flang -E %s
 * ditto, but with intervening *comment line
       integer, parameter :: KWM = 666
 #define KWM 777

diff --git a/test/Preprocessing/pp007.F b/test/Preprocessing/pp007.F
@@ -1,3 +1,4 @@
+! RUN: %flang -E %s
 * KWM split across continuation, clipped after column 72
       integer, parameter :: KWM = 666
 #define KWM 777

diff --git a/test/Preprocessing/pp008.F b/test/Preprocessing/pp008.F
@@ -1,3 +1,4 @@
+! RUN: %flang -E %s
 * KWM with spaces in name at invocation NOT replaced
       integer, parameter :: KWM = 777
 #define KWM 666

diff --git a/test/Preprocessing/pp009.F b/test/Preprocessing/pp009.F
@@ -1,3 +1,4 @@
+! RUN: %flang -E %s
 * FLM call split across continuation, implicit padding
       integer function IFLM(x)
         integer :: x

diff --git a/test/Preprocessing/pp010.F b/test/Preprocessing/pp010.F
@@ -1,3 +1,4 @@
+! RUN: %flang -E %s
 * ditto, but with intervening *comment line
       integer function IFLM(x)
         integer :: x

diff --git a/test/Preprocessing/pp011.F b/test/Preprocessing/pp011.F
@@ -1,3 +1,4 @@
+! RUN: %flang -E %s
 * FLM call name split across continuation, clipped
       integer function IFLM(x)
         integer :: x

diff --git a/test/Preprocessing/pp012.F b/test/Preprocessing/pp012.F
@@ -1,3 +1,4 @@
+! RUN: %flang -E %s
 * FLM call name split across continuation
       integer function IFLM(x)
         integer :: x

diff --git a/test/Preprocessing/pp013.F b/test/Preprocessing/pp013.F
@@ -1,3 +1,4 @@
+! RUN: %flang -E %s
 * FLM call split between name and (
       integer function IFLM(x)
         integer :: x

diff --git a/test/Preprocessing/pp014.F b/test/Preprocessing/pp014.F
@@ -1,3 +1,4 @@
+! RUN: %flang -E %s
 * FLM call split between name and (, with intervening *comment
       integer function IFLM(x)
         integer :: x

diff --git a/test/Preprocessing/pp015.F b/test/Preprocessing/pp015.F
@@ -1,3 +1,4 @@
+! RUN: %flang -E %s
 * FLM call split between name and (, clipped
       integer function IFLM(x)
         integer :: x

diff --git a/test/Preprocessing/pp016.F b/test/Preprocessing/pp016.F
@@ -1,3 +1,4 @@
+! RUN: %flang -E %s
 * FLM call split between name and ( and in argument
       integer function IFLM(x)
         integer :: x

diff --git a/test/Preprocessing/pp017.F b/test/Preprocessing/pp017.F
@@ -1,3 +1,4 @@
+! RUN: %flang -E %s
 * KLM rescan
       integer, parameter :: KWM = 666, KWM2 = 667
 #define KWM2 777

diff --git a/test/Preprocessing/pp018.F b/test/Preprocessing/pp018.F
@@ -1,3 +1,4 @@
+! RUN: %flang -E %s
 * KLM rescan with #undef (so rescan is after expansion)
       integer, parameter :: KWM2 = 777, KWM = 667
 #define KWM2 666

diff --git a/test/Preprocessing/pp019.F b/test/Preprocessing/pp019.F
@@ -1,3 +1,4 @@
+! RUN: %flang -E %s
 * FLM rescan
       integer function IFLM(x)
         integer :: x

diff --git a/test/Preprocessing/pp020.F b/test/Preprocessing/pp020.F
@@ -1,3 +1,4 @@
+! RUN: %flang -E %s
 * FLM expansion of argument
       integer function IFLM(x)
         integer :: x

diff --git a/test/Preprocessing/pp021.F b/test/Preprocessing/pp021.F
@@ -1,3 +1,4 @@
+! RUN: %flang -E %s
 * KWM NOT expanded in 'literal'
 #define KWM 666
       character(len=3) :: ch

diff --git a/test/Preprocessing/pp022.F b/test/Preprocessing/pp022.F
@@ -1,3 +1,4 @@
+! RUN: %flang -E %s
 * KWM NOT expanded in "literal"
 #define KWM 666
       character(len=3) :: ch

diff --git a/test/Preprocessing/pp023.F b/test/Preprocessing/pp023.F
@@ -1,3 +1,4 @@
+! RUN: %flang -E %s
 * KWM NOT expanded in 9HHOLLERITH literal
 #define KWM 666
 #define HKWM 667

diff --git a/test/Preprocessing/pp024.F b/test/Preprocessing/pp024.F
@@ -1,3 +1,4 @@
+! RUN: %flang -E %s
 * KWM NOT expanded in Hollerith in FORMAT
 #define KWM 666
 #define HKWM 667

diff --git a/test/Preprocessing/pp025.F b/test/Preprocessing/pp025.F
@@ -1,3 +1,4 @@
+! RUN: %flang -E %s
 * KWM expansion is before token pasting due to fixed-form space removal
       integer, parameter :: IKWM2Z = 777
 #define KWM KWM2

diff --git a/test/Preprocessing/pp026.F b/test/Preprocessing/pp026.F
@@ -1,3 +1,4 @@
+! RUN: %flang -E %s
 * ## token pasting works in FLM
       integer function IFLM(x)
         integer :: x

diff --git a/test/Preprocessing/pp027.F b/test/Preprocessing/pp027.F
@@ -1,3 +1,4 @@
+! RUN: %flang -E %s
 * #DEFINE works in fixed form
       integer, parameter :: KWM = 666
 #DEFINE KWM 777

diff --git a/test/Preprocessing/pp028.F b/test/Preprocessing/pp028.F
@@ -1,3 +1,4 @@
+! RUN: %flang -E %s
 * fixed-form clipping done before KWM expansion on source line
       integer, parameter :: KW = 777
 #define KWM 666

diff --git a/test/Preprocessing/pp029.F b/test/Preprocessing/pp029.F
@@ -1,3 +1,4 @@
+! RUN: %flang -E %s
 * \ newline allowed in #define
       integer, parameter :: KWM = 666
 #define KWM 77\

diff --git a/test/Preprocessing/pp030.F b/test/Preprocessing/pp030.F
@@ -1,3 +1,4 @@
+! RUN: %flang -E %s
 * /* C comment */ erased from #define
       integer, parameter :: KWM = 666
 #define KWM 777 /* C comment */

diff --git a/test/Preprocessing/pp031.F b/test/Preprocessing/pp031.F
@@ -1,3 +1,4 @@
+! RUN: %flang -E %s
 *  // C++ comment NOT erased from #define
       integer, parameter :: KWM = 666
 #define KWM 777 // C comment

diff --git a/test/Preprocessing/pp032.F b/test/Preprocessing/pp032.F
@@ -1,3 +1,4 @@
+! RUN: %flang -E %s
 * /* C comment */ \ newline erased from #define
       integer, parameter :: KWM = 666
 #define KWM 77/* C comment */\

diff --git a/test/Preprocessing/pp033.F b/test/Preprocessing/pp033.F
@@ -1,3 +1,4 @@
+! RUN: %flang -E %s
 * /* C comment \ newline */ erased from #define
       integer, parameter :: KWM = 666
 #define KWM 77/* C comment \

diff --git a/test/Preprocessing/pp034.F b/test/Preprocessing/pp034.F
@@ -1,3 +1,4 @@
+! RUN: %flang -E %s
 * \ newline allowed in name on KWM definition
       integer, parameter :: KWMC = 666
 #define KWM\

diff --git a/test/Preprocessing/pp035.F b/test/Preprocessing/pp035.F
@@ -1,3 +1,4 @@
+! RUN: %flang -E %s
 * #if 2 .LT. 3 works
       integer, parameter :: KWM = 666
 #if 2 .LT. 3

diff --git a/test/Preprocessing/pp036.F b/test/Preprocessing/pp036.F
@@ -1,3 +1,4 @@
+! RUN: %flang -E %s
 * #define FALSE TRUE ...  .FALSE. -> .TRUE.
 #define FALSE TRUE
       if (.FALSE.) then

diff --git a/test/Preprocessing/pp037.F b/test/Preprocessing/pp037.F
@@ -1,3 +1,4 @@
+! RUN: %flang -E %s
 * fixed-form clipping NOT applied to #define
       integer, parameter :: KWM = 666
 *        1         2         3         4         5         6         7

diff --git a/test/Preprocessing/pp038.F b/test/Preprocessing/pp038.F
@@ -1,3 +1,4 @@
+! RUN: %flang -E %s
 * FLM call with closing ')' on next line (not a continuation)
       integer function IFLM(x)
         integer :: x

diff --git a/test/Preprocessing/pp039.F b/test/Preprocessing/pp039.F
@@ -1,3 +1,4 @@
+! RUN: %flang -E %s
 * FLM call with '(' on next line (not a continuation)
       integer function IFLM(x)
         integer :: x

diff --git a/test/Preprocessing/pp040.F b/test/Preprocessing/pp040.F
@@ -1,3 +1,4 @@
+! RUN: %flang -E %s
 * #define KWM c, then KWM works as comment line initiator
 #define KWM c
 KWM   print *, 'pp040.F FAIL HARD!'; stop

diff --git a/test/Preprocessing/pp041.F b/test/Preprocessing/pp041.F
@@ -1,3 +1,4 @@
+! RUN: %flang -E %s
 * use KWM expansion as continuation indicators
 #define KWM 0
 #define KWM2 1

diff --git a/test/Preprocessing/pp042.F b/test/Preprocessing/pp042.F
@@ -1,3 +1,4 @@
+! RUN: %flang -E %s
 * #define c 1, then use c as label in fixed-form
 #define c 1
 c     print *, 'pp042.F pass'; goto 2

diff --git a/test/Preprocessing/pp043.F b/test/Preprocessing/pp043.F
@@ -1,3 +1,4 @@
+! RUN: %flang -E %s
 * #define with # in column 6 is a continuation line in fixed-form
       integer, parameter :: defineKWM666 = 555
       integer, parameter :: KWM =

diff --git a/test/Preprocessing/pp044.F b/test/Preprocessing/pp044.F
@@ -1,3 +1,4 @@
+! RUN: %flang -E %s
 * #define directive amid continuations
       integer, parameter :: KWM = 222, KWM111 = 333, KWM222 = 555
       integer, parameter :: KWMKWM = 333

diff --git a/test/Preprocessing/pp101.F90 b/test/Preprocessing/pp101.F90
@@ -1,3 +1,4 @@
+! RUN: %flang -E %s
 ! keyword macros
       integer, parameter :: KWM = 666
 #define KWM 777

diff --git a/test/Preprocessing/pp102.F90 b/test/Preprocessing/pp102.F90
@@ -1,3 +1,4 @@
+! RUN: %flang -E %s
 ! #undef
       integer, parameter :: KWM = 777
 #define KWM 666

diff --git a/test/Preprocessing/pp103.F90 b/test/Preprocessing/pp103.F90
@@ -1,3 +1,4 @@
+! RUN: %flang -E %s
 ! function-like macros
       integer function IFLM(x)
         integer :: x

diff --git a/test/Preprocessing/pp104.F90 b/test/Preprocessing/pp104.F90
@@ -1,3 +1,4 @@
+! RUN: %flang -E %s
 ! KWMs case-sensitive
       integer, parameter :: KWM = 777
 #define KWM 666

diff --git a/test/Preprocessing/pp105.F90 b/test/Preprocessing/pp105.F90
@@ -1,3 +1,4 @@
+! RUN: %flang -E %s
 ! KWM call name split across continuation, with leading &
       integer, parameter :: KWM = 666
 #define KWM 777

diff --git a/test/Preprocessing/pp106.F90 b/test/Preprocessing/pp106.F90
@@ -1,3 +1,4 @@
+! RUN: %flang -E %s
 ! ditto, with & ! comment
       integer, parameter :: KWM = 666
 #define KWM 777

diff --git a/test/Preprocessing/pp107.F90 b/test/Preprocessing/pp107.F90
@@ -1,3 +1,4 @@
+! RUN: %flang -E %s
 ! KWM call name split across continuation, no leading &, with & ! comment
       integer, parameter :: KWM = 666
 #define KWM 777

diff --git a/test/Preprocessing/pp108.F90 b/test/Preprocessing/pp108.F90
@@ -1,3 +1,4 @@
+! RUN: %flang -E %s
 ! ditto, but without & ! comment
       integer, parameter :: KWM = 666
 #define KWM 777

diff --git a/test/Preprocessing/pp109.F90 b/test/Preprocessing/pp109.F90
@@ -1,3 +1,4 @@
+! RUN: %flang -E %s
 ! FLM call name split with leading &
       integer function IFLM(x)
         integer :: x

diff --git a/test/Preprocessing/pp110.F90 b/test/Preprocessing/pp110.F90
@@ -1,3 +1,4 @@
+! RUN: %flang -E %s
 ! ditto, with & ! comment
       integer function IFLM(x)
         integer :: x

diff --git a/test/Preprocessing/pp111.F90 b/test/Preprocessing/pp111.F90
@@ -1,3 +1,4 @@
+! RUN: %flang -E %s
 ! FLM call name split across continuation, no leading &, with & ! comment
       integer function IFLM(x)
         integer :: x

diff --git a/test/Preprocessing/pp112.F90 b/test/Preprocessing/pp112.F90
@@ -1,3 +1,4 @@
+! RUN: %flang -E %s
 ! ditto, but without & ! comment
       integer function IFLM(x)
         integer :: x

diff --git a/test/Preprocessing/pp113.F90 b/test/Preprocessing/pp113.F90
@@ -1,3 +1,4 @@
+! RUN: %flang -E %s
 ! FLM call split across continuation between name and (, leading &
       integer function IFLM(x)
         integer :: x

diff --git a/test/Preprocessing/pp114.F90 b/test/Preprocessing/pp114.F90
@@ -1,3 +1,4 @@
+! RUN: %flang -E %s
 ! ditto, with & ! comment, leading &
       integer function IFLM(x)
         integer :: x

diff --git a/test/Preprocessing/pp115.F90 b/test/Preprocessing/pp115.F90
@@ -1,3 +1,4 @@
+! RUN: %flang -E %s
 ! ditto, with & ! comment, no leading &
       integer function IFLM(x)
         integer :: x

diff --git a/test/Preprocessing/pp116.F90 b/test/Preprocessing/pp116.F90
@@ -1,3 +1,4 @@
+! RUN: %flang -E %s
 ! FLM call split between name and (, no leading &
       integer function IFLM(x)
         integer :: x

diff --git a/test/Preprocessing/pp117.F90 b/test/Preprocessing/pp117.F90
@@ -1,3 +1,4 @@
+! RUN: %flang -E %s
 ! KWM rescan
       integer, parameter :: KWM = 666, KWM2 = 667
 #define KWM2 777

diff --git a/test/Preprocessing/pp118.F90 b/test/Preprocessing/pp118.F90
@@ -1,3 +1,4 @@
+! RUN: %flang -E %s
 ! KWM rescan with #undef, proving rescan after expansion
       integer, parameter :: KWM2 = 777, KWM = 667
 #define KWM2 666

diff --git a/test/Preprocessing/pp119.F90 b/test/Preprocessing/pp119.F90
@@ -1,3 +1,4 @@
+! RUN: %flang -E %s
 ! FLM rescan
       integer function IFLM(x)
         integer :: x

diff --git a/test/Preprocessing/pp120.F90 b/test/Preprocessing/pp120.F90
@@ -1,3 +1,4 @@
+! RUN: %flang -E %s
 ! FLM expansion of argument
       integer function IFLM(x)
         integer :: x

diff --git a/test/Preprocessing/pp121.F90 b/test/Preprocessing/pp121.F90
@@ -1,3 +1,4 @@
+! RUN: %flang -E %s
 ! KWM NOT expanded in 'literal'
 #define KWM 666
       character(len=3) :: ch

diff --git a/test/Preprocessing/pp122.F90 b/test/Preprocessing/pp122.F90
@@ -1,3 +1,4 @@
+! RUN: %flang -E %s
 ! KWM NOT expanded in "literal"
 #define KWM 666
       character(len=3) :: ch

diff --git a/test/Preprocessing/pp123.F90 b/test/Preprocessing/pp123.F90
@@ -1,3 +1,4 @@
+! RUN: %flang -E %s
 ! KWM NOT expanded in Hollerith literal
 #define KWM 666
 #define HKWM 667

diff --git a/test/Preprocessing/pp124.F90 b/test/Preprocessing/pp124.F90
@@ -1,3 +1,4 @@
+! RUN: %flang -E %s
 ! KWM NOT expanded in Hollerith in FORMAT
 #define KWM 666
 #define HKWM 667

diff --git a/test/Preprocessing/pp125.F90 b/test/Preprocessing/pp125.F90
@@ -1,3 +1,4 @@
+! RUN: %flang -E %s
 ! #DEFINE works in free form
       integer, parameter :: KWM = 666
 #DEFINE KWM 777

diff --git a/test/Preprocessing/pp126.F90 b/test/Preprocessing/pp126.F90
@@ -1,3 +1,4 @@
+! RUN: %flang -E %s
 ! \ newline works in #define
       integer, parameter :: KWM = 666
 #define KWM 77\

diff --git a/test/Preprocessing/pp127.F90 b/test/Preprocessing/pp127.F90
@@ -1,3 +1,4 @@
+! RUN: %flang -E %s
 ! FLM call with closing ')' on next line (not a continuation)
       integer function IFLM(x)
         integer :: x

diff --git a/test/Preprocessing/pp128.F90 b/test/Preprocessing/pp128.F90
@@ -1,3 +1,4 @@
+! RUN: %flang -E %s
 ! FLM call with '(' on next line (not a continuation)
       integer function IFLM(x)
         integer :: x