This is an archive of the discontinued LLVM Phabricator instance.

Differential D94805

[flang][driver] Update PP tests to use the new driver
ClosedPublic

Authored by FarisRehman on Jan 15 2021, 10:00 AM.

Details

Reviewers
sscalpone
awarzynski
sameeranjoshi
AMDChirag
tskeith
SouraVX
kiranktp
Commits
rG1c8f199f4499: [flang][driver] Update PP tests to use the new driver
Summary

Update the preprocessor regression tests to use the new driver if flang-new is built, otherwise the tests will still run with f18.

Summary of changes:

  • Introduce %flang-driver to the regression tests, which points to the new driver if it is built or otherwise points to f18
  • Update all tests in flang/test/Preprocessing/ to use %flang-driver

Depends on: D93453, D94516, D94228, D94782

Diff Detail

Event Timeline

FarisRehman created this revision.Jan 15 2021, 10:00 AM
Herald added a reviewer: sscalpone. · View Herald TranscriptJan 15 2021, 10:00 AM
FarisRehman requested review of this revision.Jan 15 2021, 10:00 AM
Herald added a project: Restricted Project. · View Herald TranscriptJan 15 2021, 10:00 AM
Herald added a subscriber: llvm-commits. · View Herald Transcript
FarisRehman edited the summary of this revision. (Show Details)Jan 15 2021, 10:02 AM
FarisRehman added reviewers: awarzynski, sameeranjoshi, AMDChirag, tskeith, SouraVX, kiranktp.
FarisRehman added a project: Restricted Project.
Herald added a subscriber: jdoerfert. · View Herald TranscriptJan 15 2021, 10:02 AM
Harbormaster completed remote builds in B85380: Diff 317007.Jan 15 2021, 10:56 AM
sameeranjoshi accepted this revision.Jan 20 2021, 1:58 AM

We are slowly trying to replace the throwaway driver f18. That's actually a good progress.
Thank you for the progress @awarzynski @FarisRehman
I would wait for others to approve as this patch touches the core Fortran parts.

This revision is now accepted and ready to land.Jan 20 2021, 1:58 AM
awarzynski accepted this revision.Jan 21 2021, 7:27 AM

This change:

  • preserves the current behavior when FLANG_BUILD_NEW_DRIVER=OFF
  • adds a lot of new tests for flang-new when FLANG_BUILD_NEW_DRIVER=ON at almost no cost

Really nice to see this patch! I have two suggestions for the future:

  • when flang-new becomes flang, we should update flang-driver accordingly
  • also, we could switch to flang-new -fc1 instead of flang-new

I don't see a good reason for these to happen just now - one step at a time! LGTM

tskeith added a comment.Jan 21 2021, 8:31 AM
In D94805#2512485, @awarzynski wrote:

Really nice to see this patch! I have two suggestions for the future:

  • when flang-new becomes flang, we should update flang-driver accordingly

You could change %flang-driver and %flang-new to %flang now. That way it wouldn't be necessary to change all of the tests again.

FarisRehman updated this revision to Diff 318920.EditedJan 25 2021, 1:26 AM

Rename flang-driver to flang

Address review comments by renaming %flang-driver to %flang.

Harbormaster completed remote builds in B86512: Diff 318920.Jan 25 2021, 1:54 AM
awarzynski added inline comments.Jan 25 2021, 3:06 AM
flang/test/Flang-Driver/code-gen.f90
1–5

I'm guessing that this was added by accident ;-) Don't forget to revert before committing to main.

Closed by commit rG1c8f199f4499: [flang][driver] Update PP tests to use the new driver (authored by FarisRehman). · Explain WhyJan 25 2021, 4:33 AM
This revision was automatically updated to reflect the committed changes.
FarisRehman marked an inline comment as done.
FarisRehman added a commit: rG1c8f199f4499: [flang][driver] Update PP tests to use the new driver.

Revision Contents

PathSize
flang/
test/
Flang-Driver/
8 lines
Preprocessing/
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
2 lines
5 lines

Diff 318920

flang/test/Flang-Driver/code-gen.f90

! RUN: not %flang-new %s 2>&1 | FileCheck %s --check-prefix=ERROR ! RUN: not %flang %s 2>&1 | FileCheck %s --check-prefix=ERROR
! RUN: not %flang-new -c %s 2>&1 | FileCheck %s --check-prefix=ERROR ! RUN: not %flang -c %s 2>&1 | FileCheck %s --check-prefix=ERROR
! RUN: not %flang-new -emit-obj %s 2>&1 | FileCheck %s --check-prefix=ERROR ! RUN: not %flang -emit-obj %s 2>&1 | FileCheck %s --check-prefix=ERROR
! RUN: not %flang-new -fc1 -emit-obj %s 2>&1 | FileCheck %s --check-prefix=ERROR ! RUN: not %flang -fc1 -emit-obj %s 2>&1 | FileCheck %s --check-prefix=ERROR
awarzynskiUnsubmitted
Done
ReplyInline Actions

I'm guessing that this was added by accident ;-) Don't forget to revert before committing to main.

awarzynski: I'm guessing that this was added by accident ;-) Don't forget to revert before committing to…
! REQUIRES: new-flang-driver ! REQUIRES: new-flang-driver
! Although code-generation is not yet available, we do have frontend actions ! Although code-generation is not yet available, we do have frontend actions
! that correspond to `-c` and `-emit-obj`. For now these actions are just a ! that correspond to `-c` and `-emit-obj`. For now these actions are just a
! placeholder and running them leads to a driver error. This test makes sure ! placeholder and running them leads to a driver error. This test makes sure
! that these actions are indeed run (rather than `-c` or `-emit-obj` being ! that these actions are indeed run (rather than `-c` or `-emit-obj` being
! rejected earlier). ! rejected earlier).
! TODO: Replace this file with a proper test once code-generation is available. ! TODO: Replace this file with a proper test once code-generation is available.
! ERROR: code-generation is not available yet ! ERROR: code-generation is not available yet

flang/test/Preprocessing/assert.F90

!RUN: %f18 -E %s 2>&1 | FileCheck %s !RUN: %flang -E %s 2>&1 | FileCheck %s
!CHECK: if(.not.(.true.)) error stop "assert(" // ".TRUE." // ") failed " // "at "" !CHECK: if(.not.(.true.)) error stop "assert(" // ".TRUE." // ") failed " // "at ""
!CHECK-SAME: assert.F90"": " // "7" !CHECK-SAME: assert.F90"": " // "7"
#define STR(x) #x #define STR(x) #x
#define POSITION(f,ln) "at "f": " // STR(ln) #define POSITION(f,ln) "at "f": " // STR(ln)
#define assert(x) if(.not.(x)) error stop "assert(" // #x // ") failed " // POSITION(__FILE__,__LINE__) #define assert(x) if(.not.(x)) error stop "assert(" // #x // ") failed " // POSITION(__FILE__,__LINE__)
assert(.TRUE.) assert(.TRUE.)
end end

flang/test/Preprocessing/compiler_defined_macros.F90

! Check that the macros that give the version number are set properly ! Check that the macros that give the version number are set properly
!CHECK: flang_major = {{[1-9][0-9]*$}} !CHECK: flang_major = {{[1-9][0-9]*$}}
!CHECK: flang_minor = {{[0-9]+$}} !CHECK: flang_minor = {{[0-9]+$}}
!CHECK: flang_patchlevel = {{[0-9]+$}} !CHECK: flang_patchlevel = {{[0-9]+$}}
!RUN: %f18 -E %s | FileCheck --ignore-case %s !RUN: %flang -E %s | FileCheck --ignore-case %s
integer, parameter :: flang_major = __flang_major__ integer, parameter :: flang_major = __flang_major__
integer, parameter :: flang_minor = __flang_minor__ integer, parameter :: flang_minor = __flang_minor__
integer, parameter :: flang_patchlevel = __flang_patchlevel__ integer, parameter :: flang_patchlevel = __flang_patchlevel__

flang/test/Preprocessing/defines.F90

! RUN: %f18 -E -DFOO=1 -DBAR=2 %s | FileCheck %s ! RUN: %flang -E -DFOO=1 -DBAR=2 %s | FileCheck %s
! CHECK: integer :: a = 1 ! CHECK: integer :: a = 1
integer :: a = FOO integer :: a = FOO
! CHECK: integer :: b = 2 ! CHECK: integer :: b = 2
integer :: b = BAR integer :: b = BAR
end program end program

flang/test/Preprocessing/fixed-rescan.F

! RUN: %f18 -E %s | FileCheck %s ! RUN: %flang -E %s | FileCheck %s
! CHECK: callbar ! CHECK: callbar
! Ensure that rescanned lines after macro replacement are not ! Ensure that rescanned lines after macro replacement are not
! misinterpreted as fixed-form comments when they start with C or D. ! misinterpreted as fixed-form comments when they start with C or D.
#define foo bar #define foo bar
call foo call foo
end end

flang/test/Preprocessing/hollerith.f

! RUN: %f18 -E %s 2>&1 | FileCheck %s ! RUN: %flang -E %s 2>&1 | FileCheck %s
! CHECK: character*1hi ! CHECK: character*1hi
! CHECK: dataa/1*1h / ! CHECK: dataa/1*1h /
! CHECK: datab/1*1h / ! CHECK: datab/1*1h /
! CHECK: do1h=1,2 ! CHECK: do1h=1,2
CHARACTER*1H I CHARACTER*1H I
CHARACTER*1 A,B CHARACTER*1 A,B
INTEGER H INTEGER H
DATA A/1*1H / DATA A/1*1H /
DATA B/ DATA B/
+1*1H / +1*1H /
DO1H =1,2 DO1H =1,2
1 CONTINUE 1 CONTINUE
END END

flang/test/Preprocessing/include-comment.F90

! RUN: %f18 -I%S -E %s 2>&1 | FileCheck %s ! RUN: %flang -I%S -E %s 2>&1 | FileCheck %s
! CHECK-NOT: :3: ! CHECK-NOT: :3:
#include <empty.h> ! comment #include <empty.h> ! comment
! CHECK-NOT: :5: ! CHECK-NOT: :5:
#include <empty.h> /* comment */ #include <empty.h> /* comment */
! CHECK-NOT: :7: ! CHECK-NOT: :7:
#include <empty.h> !comment #include <empty.h> !comment
! CHECK: :9:20: #include: extra stuff ignored after file name ! CHECK: :9:20: #include: extra stuff ignored after file name
#include <empty.h> comment #include <empty.h> comment
Show All 9 Lines

flang/test/Preprocessing/pp001.F

! RUN: %f18 -E %s 2>&1 | FileCheck %s ! RUN: %flang -E %s 2>&1 | FileCheck %s
! CHECK: if(777.eq.777)then ! CHECK: if(777.eq.777)then
* keyword macros * keyword macros
integer, parameter :: KWM = 666 integer, parameter :: KWM = 666
#define KWM 777 #define KWM 777
if (KWM .eq. 777) then if (KWM .eq. 777) then
print *, 'pp001.F yes' print *, 'pp001.F yes'
else else
print *, 'pp001.F no: ', KWM print *, 'pp001.F no: ', KWM
end if end if
end end

flang/test/Preprocessing/pp002.F

! RUN: %f18 -E %s 2>&1 | FileCheck %s ! RUN: %flang -E %s 2>&1 | FileCheck %s
! CHECK: if(kwm.eq.777)then ! CHECK: if(kwm.eq.777)then
* #undef * #undef
integer, parameter :: KWM = 777 integer, parameter :: KWM = 777
#define KWM 666 #define KWM 666
#undef KWM #undef KWM
if (KWM .eq. 777) then if (KWM .eq. 777) then
print *, 'pp002.F yes' print *, 'pp002.F yes'
else else
print *, 'pp002.F no: ', KWM print *, 'pp002.F no: ', KWM
end if end if
end end

flang/test/Preprocessing/pp003.F

! RUN: %f18 -E %s 2>&1 | FileCheck %s ! RUN: %flang -E %s 2>&1 | FileCheck %s
! CHECK: res=((666)+111) ! CHECK: res=((666)+111)
* function-like macros * function-like macros
integer function IFLM(x) integer function IFLM(x)
integer :: x integer :: x
IFLM = x IFLM = x
end function IFLM end function IFLM
program main program main
#define IFLM(x) ((x)+111) #define IFLM(x) ((x)+111)
integer :: res integer :: res
res = IFLM(666) res = IFLM(666)
if (res .eq. 777) then if (res .eq. 777) then
print *, 'pp003.F yes' print *, 'pp003.F yes'
else else
print *, 'pp003.F no: ', res print *, 'pp003.F no: ', res
end if end if
end end

flang/test/Preprocessing/pp004.F

! RUN: %f18 -E %s 2>&1 | FileCheck %s ! RUN: %flang -E %s 2>&1 | FileCheck %s
! CHECK: if(kwm.eq.777)then ! CHECK: if(kwm.eq.777)then
* KWMs case-sensitive * KWMs case-sensitive
integer, parameter :: KWM = 777 integer, parameter :: KWM = 777
#define KWM 666 #define KWM 666
if (kwm .eq. 777) then if (kwm .eq. 777) then
print *, 'pp004.F yes' print *, 'pp004.F yes'
else else
print *, 'pp004.F no: ', kwm print *, 'pp004.F no: ', kwm
end if end if
end end

flang/test/Preprocessing/pp005.F

! RUN: %f18 -E %s 2>&1 | FileCheck %s ! RUN: %flang -E %s 2>&1 | FileCheck %s
! CHECK: res=777 ! CHECK: res=777
* KWM split across continuation, implicit padding * KWM split across continuation, implicit padding
integer, parameter :: KWM = 666 integer, parameter :: KWM = 666
#define KWM 777 #define KWM 777
integer :: res integer :: res
res = KW res = KW
+M +M
if (res .eq. 777) then if (res .eq. 777) then
print *, 'pp005.F yes' print *, 'pp005.F yes'
else else
print *, 'pp005.F no: ', res print *, 'pp005.F no: ', res
end if end if
end end

flang/test/Preprocessing/pp006.F

! RUN: %f18 -E %s 2>&1 | FileCheck %s ! RUN: %flang -E %s 2>&1 | FileCheck %s
! CHECK: res=777 ! CHECK: res=777
* ditto, but with intervening *comment line * ditto, but with intervening *comment line
integer, parameter :: KWM = 666 integer, parameter :: KWM = 666
#define KWM 777 #define KWM 777
integer :: res integer :: res
res = KW res = KW
*comment *comment
+M +M
if (res .eq. 777) then if (res .eq. 777) then
print *, 'pp006.F yes' print *, 'pp006.F yes'
else else
print *, 'pp006.F no: ', res print *, 'pp006.F no: ', res
end if end if
end end

flang/test/Preprocessing/pp007.F

! RUN: %f18 -E %s 2>&1 | FileCheck %s ! RUN: %flang -E %s 2>&1 | FileCheck %s
! CHECK: res=kwm ! CHECK: res=kwm
* KWM split across continuation, clipped after column 72 * KWM split across continuation, clipped after column 72
integer, parameter :: KWM = 666 integer, parameter :: KWM = 666
#define KWM 777 #define KWM 777
integer :: res integer :: res
* 'comment' is in column 73 * 'comment' is in column 73
* 1 2 3 4 5 6 7 * 1 2 3 4 5 6 7
*234567890123456789012345678901234567890123456789012345678901234567890123 *234567890123456789012345678901234567890123456789012345678901234567890123
res = KW comment res = KW comment
+M +M
if (res .eq. 777) then if (res .eq. 777) then
print *, 'pp007.F yes' print *, 'pp007.F yes'
else else
print *, 'pp007.F no: ', res print *, 'pp007.F no: ', res
end if end if
end end

flang/test/Preprocessing/pp008.F

! RUN: %f18 -E %s 2>&1 | FileCheck %s ! RUN: %flang -E %s 2>&1 | FileCheck %s
! CHECK: res=kwm ! CHECK: res=kwm
* KWM with spaces in name at invocation NOT replaced * KWM with spaces in name at invocation NOT replaced
integer, parameter :: KWM = 777 integer, parameter :: KWM = 777
#define KWM 666 #define KWM 666
integer :: res integer :: res
res = K W M res = K W M
if (res .eq. 777) then if (res .eq. 777) then
print *, 'pp008.F yes' print *, 'pp008.F yes'
else else
print *, 'pp008.F no: ', res print *, 'pp008.F no: ', res
end if end if
end end

flang/test/Preprocessing/pp009.F

! RUN: %f18 -E %s 2>&1 | FileCheck %s ! RUN: %flang -E %s 2>&1 | FileCheck %s
! CHECK: res=((666)+111) ! CHECK: res=((666)+111)
* FLM call split across continuation, implicit padding * FLM call split across continuation, implicit padding
integer function IFLM(x) integer function IFLM(x)
integer :: x integer :: x
IFLM = x IFLM = x
end function IFLM end function IFLM
program main program main
#define IFLM(x) ((x)+111) #define IFLM(x) ((x)+111)
Show All 9 Lines

flang/test/Preprocessing/pp010.F

! RUN: %f18 -E %s 2>&1 | FileCheck %s ! RUN: %flang -E %s 2>&1 | FileCheck %s
! CHECK: res=((666)+111) ! CHECK: res=((666)+111)
* ditto, but with intervening *comment line * ditto, but with intervening *comment line
integer function IFLM(x) integer function IFLM(x)
integer :: x integer :: x
IFLM = x IFLM = x
end function IFLM end function IFLM
program main program main
#define IFLM(x) ((x)+111) #define IFLM(x) ((x)+111)
Show All 10 Lines

flang/test/Preprocessing/pp011.F

! RUN: %f18 -E %s 2>&1 | FileCheck %s ! RUN: %flang -E %s 2>&1 | FileCheck %s
! CHECK: res=iflm(666) ! CHECK: res=iflm(666)
* FLM call name split across continuation, clipped * FLM call name split across continuation, clipped
integer function IFLM(x) integer function IFLM(x)
integer :: x integer :: x
IFLM = x IFLM = x
end function IFLM end function IFLM
program main program main
#define IFLM(x) ((x)+111) #define IFLM(x) ((x)+111)
Show All 12 Lines

flang/test/Preprocessing/pp012.F

! RUN: %f18 -E %s 2>&1 | FileCheck %s ! RUN: %flang -E %s 2>&1 | FileCheck %s
! CHECK: res=((666)+111) ! CHECK: res=((666)+111)
* FLM call name split across continuation * FLM call name split across continuation
integer function IFLM(x) integer function IFLM(x)
integer :: x integer :: x
IFLM = x IFLM = x
end function IFLM end function IFLM
program main program main
#define IFLM(x) ((x)+111) #define IFLM(x) ((x)+111)
Show All 9 Lines

flang/test/Preprocessing/pp013.F

! RUN: %f18 -E %s 2>&1 | FileCheck %s ! RUN: %flang -E %s 2>&1 | FileCheck %s
! CHECK: res=((666)+111) ! CHECK: res=((666)+111)
* FLM call split between name and ( * FLM call split between name and (
integer function IFLM(x) integer function IFLM(x)
integer :: x integer :: x
IFLM = x IFLM = x
end function IFLM end function IFLM
program main program main
#define IFLM(x) ((x)+111) #define IFLM(x) ((x)+111)
Show All 9 Lines

flang/test/Preprocessing/pp014.F

! RUN: %f18 -E %s 2>&1 | FileCheck %s ! RUN: %flang -E %s 2>&1 | FileCheck %s
! CHECK: res=((666)+111) ! CHECK: res=((666)+111)
* FLM call split between name and (, with intervening *comment * FLM call split between name and (, with intervening *comment
integer function IFLM(x) integer function IFLM(x)
integer :: x integer :: x
IFLM = x IFLM = x
end function IFLM end function IFLM
program main program main
#define IFLM(x) ((x)+111) #define IFLM(x) ((x)+111)
Show All 10 Lines

flang/test/Preprocessing/pp015.F

! RUN: %f18 -E %s 2>&1 | FileCheck %s ! RUN: %flang -E %s 2>&1 | FileCheck %s
! CHECK: res=((666)+111) ! CHECK: res=((666)+111)
* FLM call split between name and (, clipped * FLM call split between name and (, clipped
integer function IFLM(x) integer function IFLM(x)
integer :: x integer :: x
IFLM = x IFLM = x
end function IFLM end function IFLM
program main program main
#define IFLM(x) ((x)+111) #define IFLM(x) ((x)+111)
Show All 12 Lines

flang/test/Preprocessing/pp016.F

! RUN: %f18 -E %s 2>&1 | FileCheck %s ! RUN: %flang -E %s 2>&1 | FileCheck %s
! CHECK: res=((666)+111) ! CHECK: res=((666)+111)
* FLM call split between name and ( and in argument * FLM call split between name and ( and in argument
integer function IFLM(x) integer function IFLM(x)
integer :: x integer :: x
IFLM = x IFLM = x
end function IFLM end function IFLM
program main program main
#define IFLM(x) ((x)+111) #define IFLM(x) ((x)+111)
Show All 10 Lines

flang/test/Preprocessing/pp017.F

! RUN: %f18 -E %s 2>&1 | FileCheck %s ! RUN: %flang -E %s 2>&1 | FileCheck %s
! CHECK: if(777.eq.777)then ! CHECK: if(777.eq.777)then
* KLM rescan * KLM rescan
integer, parameter :: KWM = 666, KWM2 = 667 integer, parameter :: KWM = 666, KWM2 = 667
#define KWM2 777 #define KWM2 777
#define KWM KWM2 #define KWM KWM2
if (KWM .eq. 777) then if (KWM .eq. 777) then
print *, 'pp017.F yes' print *, 'pp017.F yes'
else else
print *, 'pp017.F no: ', KWM print *, 'pp017.F no: ', KWM
end if end if
end end

flang/test/Preprocessing/pp018.F

! RUN: %f18 -E %s 2>&1 | FileCheck %s ! RUN: %flang -E %s 2>&1 | FileCheck %s
! CHECK: if(kwm2.eq.777)then ! CHECK: if(kwm2.eq.777)then
* KLM rescan with #undef (so rescan is after expansion) * KLM rescan with #undef (so rescan is after expansion)
integer, parameter :: KWM2 = 777, KWM = 667 integer, parameter :: KWM2 = 777, KWM = 667
#define KWM2 666 #define KWM2 666
#define KWM KWM2 #define KWM KWM2
#undef KWM2 #undef KWM2
if (KWM .eq. 777) then if (KWM .eq. 777) then
print *, 'pp018.F yes' print *, 'pp018.F yes'
else else
print *, 'pp018.F no: ', KWM print *, 'pp018.F no: ', KWM
end if end if
end end

flang/test/Preprocessing/pp019.F

! RUN: %f18 -E %s 2>&1 | FileCheck %s ! RUN: %flang -E %s 2>&1 | FileCheck %s
! CHECK: res=((666)+111) ! CHECK: res=((666)+111)
* FLM rescan * FLM rescan
integer function IFLM(x) integer function IFLM(x)
integer :: x integer :: x
IFLM = x IFLM = x
end function IFLM end function IFLM
program main program main
integer, parameter :: KWM = 999 integer, parameter :: KWM = 999
Show All 10 Lines

flang/test/Preprocessing/pp020.F

! RUN: %f18 -E %s 2>&1 | FileCheck %s ! RUN: %flang -E %s 2>&1 | FileCheck %s
! CHECK: res=((111)+666) ! CHECK: res=((111)+666)
* FLM expansion of argument * FLM expansion of argument
integer function IFLM(x) integer function IFLM(x)
integer :: x integer :: x
IFLM = x IFLM = x
end function IFLM end function IFLM
program main program main
integer, parameter :: KWM = 999 integer, parameter :: KWM = 999
Show All 10 Lines

flang/test/Preprocessing/pp021.F

! RUN: %f18 -E %s 2>&1 | FileCheck %s ! RUN: %flang -E %s 2>&1 | FileCheck %s
! CHECK: ch='KWM' ! CHECK: ch='KWM'
! CHECK: if(ch.eq.'KWM')then ! CHECK: if(ch.eq.'KWM')then
* KWM NOT expanded in 'literal' * KWM NOT expanded in 'literal'
#define KWM 666 #define KWM 666
character(len=3) :: ch character(len=3) :: ch
ch = 'KWM' ch = 'KWM'
if (ch .eq. 'KWM') then if (ch .eq. 'KWM') then
print *, 'pp021.F yes' print *, 'pp021.F yes'
else else
print *, 'pp021.F no: ', ch print *, 'pp021.F no: ', ch
end if end if
end end

flang/test/Preprocessing/pp022.F

! RUN: %f18 -E %s 2>&1 | FileCheck %s ! RUN: %flang -E %s 2>&1 | FileCheck %s
! CHECK: ch="KWM" ! CHECK: ch="KWM"
! CHECK: if(ch.eq.'KWM')then ! CHECK: if(ch.eq.'KWM')then
* KWM NOT expanded in "literal" * KWM NOT expanded in "literal"
#define KWM 666 #define KWM 666
character(len=3) :: ch character(len=3) :: ch
ch = "KWM" ch = "KWM"
if (ch .eq. 'KWM') then if (ch .eq. 'KWM') then
print *, 'pp022.F yes' print *, 'pp022.F yes'
else else
print *, 'pp022.F no: ', ch print *, 'pp022.F no: ', ch
end if end if
end end

flang/test/Preprocessing/pp023.F

! RUN: %f18 -E %s 2>&1 | FileCheck %s ! RUN: %flang -E %s 2>&1 | FileCheck %s
! CHECK: ch=3hKWM ! CHECK: ch=3hKWM
! CHECK: if(ch.eq.'KWM')then ! CHECK: if(ch.eq.'KWM')then
* KWM NOT expanded in 9HHOLLERITH literal * KWM NOT expanded in 9HHOLLERITH literal
#define KWM 666 #define KWM 666
#define HKWM 667 #define HKWM 667
character(len=3) :: ch character(len=3) :: ch
ch = 3HKWM ch = 3HKWM
if (ch .eq. 'KWM') then if (ch .eq. 'KWM') then
print *, 'pp023.F yes' print *, 'pp023.F yes'
else else
print *, 'pp023.F no: ', ch print *, 'pp023.F no: ', ch
end if end if
end end

flang/test/Preprocessing/pp024.F

! RUN: %f18 -E %s 2>&1 | FileCheck %s ! RUN: %flang -E %s 2>&1 | FileCheck %s
! CHECK: 100format(3hKWM) ! CHECK: 100format(3hKWM)
! CHECK: if(ch.eq.'KWM')then ! CHECK: if(ch.eq.'KWM')then
* KWM NOT expanded in Hollerith in FORMAT * KWM NOT expanded in Hollerith in FORMAT
#define KWM 666 #define KWM 666
#define HKWM 667 #define HKWM 667
character(len=3) :: ch character(len=3) :: ch
100 format(3HKWM) 100 format(3HKWM)
write(ch, 100) write(ch, 100)
if (ch .eq. 'KWM') then if (ch .eq. 'KWM') then
print *, 'pp024.F yes' print *, 'pp024.F yes'
else else
print *, 'pp024.F no: ', ch print *, 'pp024.F no: ', ch
end if end if
end end

flang/test/Preprocessing/pp025.F

! RUN: %f18 -E %s 2>&1 | FileCheck %s ! RUN: %flang -E %s 2>&1 | FileCheck %s
! CHECK: res=ikwm2z ! CHECK: res=ikwm2z
* KWM expansion is before token pasting due to fixed-form space removal * KWM expansion is before token pasting due to fixed-form space removal
integer, parameter :: IKWM2Z = 777 integer, parameter :: IKWM2Z = 777
#define KWM KWM2 #define KWM KWM2
integer :: res integer :: res
res = I KWM Z res = I KWM Z
if (res .eq. 777) then if (res .eq. 777) then
print *, 'pp025.F yes' print *, 'pp025.F yes'
else else
print *, 'pp025.F no: ', res print *, 'pp025.F no: ', res
end if end if
end end

flang/test/Preprocessing/pp026.F

! RUN: %f18 -E %s 2>&1 | FileCheck %s ! RUN: %flang -E %s 2>&1 | FileCheck %s
! CHECK: res=((111)+666) ! CHECK: res=((111)+666)
* ## token pasting works in FLM * ## token pasting works in FLM
integer function IFLM(x) integer function IFLM(x)
integer :: x integer :: x
IFLM = x IFLM = x
end function IFLM end function IFLM
program main program main
integer, parameter :: KWM = 668, KWM21 = 111, KWM1 = 669 integer, parameter :: KWM = 668, KWM21 = 111, KWM1 = 669
Show All 12 Lines

flang/test/Preprocessing/pp027.F

! RUN: %f18 -E %s 2>&1 | FileCheck %s ! RUN: %flang -E %s 2>&1 | FileCheck %s
! CHECK: kwm=666 ! CHECK: kwm=666
! CHECK: if(777.eq.777)then ! CHECK: if(777.eq.777)then
* #DEFINE works in fixed form * #DEFINE works in fixed form
integer, parameter :: KWM = 666 integer, parameter :: KWM = 666
#DEFINE KWM 777 #DEFINE KWM 777
if (KWM .eq. 777) then if (KWM .eq. 777) then
print *, 'pp027.F yes' print *, 'pp027.F yes'
else else
print *, 'pp027.F no: ', KWM print *, 'pp027.F no: ', KWM
end if end if
end end

flang/test/Preprocessing/pp028.F

! RUN: %f18 -E %s 2>&1 | FileCheck %s ! RUN: %flang -E %s 2>&1 | FileCheck %s
! CHECK: res=kw ! CHECK: res=kw
* fixed-form clipping done before KWM expansion on source line * fixed-form clipping done before KWM expansion on source line
integer, parameter :: KW = 777 integer, parameter :: KW = 777
#define KWM 666 #define KWM 666
integer :: res integer :: res
* 'M' is in column 73 * 'M' is in column 73
* 1 2 3 4 5 6 7 * 1 2 3 4 5 6 7
*234567890123456789012345678901234567890123456789012345678901234567890123 *234567890123456789012345678901234567890123456789012345678901234567890123
res = KWM res = KWM
if (res .eq. 777) then if (res .eq. 777) then
print *, 'pp028.F yes' print *, 'pp028.F yes'
else else
print *, 'pp028.F no: ', res print *, 'pp028.F no: ', res
end if end if
end end

flang/test/Preprocessing/pp029.F

! RUN: %f18 -E %s 2>&1 | FileCheck %s ! RUN: %flang -E %s 2>&1 | FileCheck %s
! CHECK: if(777.eq.777)then ! CHECK: if(777.eq.777)then
* \ newline allowed in #define * \ newline allowed in #define
integer, parameter :: KWM = 666 integer, parameter :: KWM = 666
#define KWM 77\ #define KWM 77\
7 7
if (KWM .eq. 777) then if (KWM .eq. 777) then
print *, 'pp029.F yes' print *, 'pp029.F yes'
else else
print *, 'pp029.F no: ', KWM print *, 'pp029.F no: ', KWM
end if end if
end end

flang/test/Preprocessing/pp030.F

! RUN: %f18 -E %s 2>&1 | FileCheck %s ! RUN: %flang -E %s 2>&1 | FileCheck %s
! CHECK: if(777.eq.777)then ! CHECK: if(777.eq.777)then
* /* C comment */ erased from #define * /* C comment */ erased from #define
integer, parameter :: KWM = 666 integer, parameter :: KWM = 666
#define KWM 777 /* C comment */ #define KWM 777 /* C comment */
if (KWM .eq. 777) then if (KWM .eq. 777) then
print *, 'pp030.F yes' print *, 'pp030.F yes'
else else
print *, 'pp030.F no: ', KWM print *, 'pp030.F no: ', KWM
end if end if
end end

flang/test/Preprocessing/pp031.F

! RUN: %f18 -E %s 2>&1 | FileCheck %s ! RUN: %flang -E %s 2>&1 | FileCheck %s
! CHECK: if(777//ccomment.eq.777)then ! CHECK: if(777//ccomment.eq.777)then
! CHECK: print*,'pp031.F no: ',777//ccomment ! CHECK: print*,'pp031.F no: ',777//ccomment
* // C++ comment NOT erased from #define * // C++ comment NOT erased from #define
integer, parameter :: KWM = 666 integer, parameter :: KWM = 666
#define KWM 777 // C comment #define KWM 777 // C comment
if (KWM .eq. 777) then if (KWM .eq. 777) then
print *, 'pp031.F FAIL (should not have compiled)' print *, 'pp031.F FAIL (should not have compiled)'
else else
print *, 'pp031.F no: ', KWM print *, 'pp031.F no: ', KWM
end if end if
end end

flang/test/Preprocessing/pp032.F

! RUN: %f18 -E %s 2>&1 | FileCheck %s ! RUN: %flang -E %s 2>&1 | FileCheck %s
! CHECK: if(777.eq.777)then ! CHECK: if(777.eq.777)then
! CHECK: print*,'pp032.F no: ',777 ! CHECK: print*,'pp032.F no: ',777
* /* C comment */ \ newline erased from #define * /* C comment */ \ newline erased from #define
integer, parameter :: KWM = 666 integer, parameter :: KWM = 666
#define KWM 77/* C comment */\ #define KWM 77/* C comment */\
7 7
if (KWM .eq. 777) then if (KWM .eq. 777) then
print *, 'pp032.F yes' print *, 'pp032.F yes'
else else
print *, 'pp032.F no: ', KWM print *, 'pp032.F no: ', KWM
end if end if
end end

flang/test/Preprocessing/pp033.F

! RUN: %f18 -E %s 2>&1 | FileCheck %s ! RUN: %flang -E %s 2>&1 | FileCheck %s
! CHECK: if(777.eq.777)then ! CHECK: if(777.eq.777)then
! CHECK: print*,'pp033.F no: ',777 ! CHECK: print*,'pp033.F no: ',777
* /* C comment \ newline */ erased from #define * /* C comment \ newline */ erased from #define
integer, parameter :: KWM = 666 integer, parameter :: KWM = 666
#define KWM 77/* C comment \ #define KWM 77/* C comment \
*/7 */7
if (KWM .eq. 777) then if (KWM .eq. 777) then
print *, 'pp033.F yes' print *, 'pp033.F yes'
else else
print *, 'pp033.F no: ', KWM print *, 'pp033.F no: ', KWM
end if end if
end end

flang/test/Preprocessing/pp034.F

! RUN: %f18 -E %s 2>&1 | FileCheck %s ! RUN: %flang -E %s 2>&1 | FileCheck %s
! CHECK: if(777.eq.777)then ! CHECK: if(777.eq.777)then
! CHECK: print*,'pp034.F no: ',777 ! CHECK: print*,'pp034.F no: ',777
* \ newline allowed in name on KWM definition * \ newline allowed in name on KWM definition
integer, parameter :: KWMC = 666 integer, parameter :: KWMC = 666
#define KWM\ #define KWM\
C 777 C 777
if (KWMC .eq. 777) then if (KWMC .eq. 777) then
print *, 'pp034.F yes' print *, 'pp034.F yes'
else else
print *, 'pp034.F no: ', KWMC print *, 'pp034.F no: ', KWMC
end if end if
end end

flang/test/Preprocessing/pp035.F

! RUN: %f18 -E %s 2>&1 | FileCheck %s ! RUN: %flang -E %s 2>&1 | FileCheck %s
! CHECK: if(777.eq.777)then ! CHECK: if(777.eq.777)then
! CHECK: print*,'pp035.F no: ',777 ! CHECK: print*,'pp035.F no: ',777
* #if 2 .LT. 3 works * #if 2 .LT. 3 works
integer, parameter :: KWM = 666 integer, parameter :: KWM = 666
#if 2 .LT. 3 #if 2 .LT. 3
#define KWM 777 #define KWM 777
#else #else
#define KWM 667 #define KWM 667
#endif #endif
if (KWM .eq. 777) then if (KWM .eq. 777) then
print *, 'pp035.F yes' print *, 'pp035.F yes'
else else
print *, 'pp035.F no: ', KWM print *, 'pp035.F no: ', KWM
end if end if
end end

flang/test/Preprocessing/pp036.F

! RUN: %f18 -E %s 2>&1 | FileCheck %s ! RUN: %flang -E %s 2>&1 | FileCheck %s
! CHECK: if(.true.)then ! CHECK: if(.true.)then
! CHECK: print*,'pp036.F no: ',.true. ! CHECK: print*,'pp036.F no: ',.true.
* #define FALSE TRUE ... .FALSE. -> .TRUE. * #define FALSE TRUE ... .FALSE. -> .TRUE.
#define FALSE TRUE #define FALSE TRUE
if (.FALSE.) then if (.FALSE.) then
print *, 'pp036.F yes' print *, 'pp036.F yes'
else else
print *, 'pp036.F no: ', .FALSE. print *, 'pp036.F no: ', .FALSE.
end if end if
end end

flang/test/Preprocessing/pp037.F

! RUN: %f18 -E %s 2>&1 | FileCheck %s ! RUN: %flang -E %s 2>&1 | FileCheck %s
! CHECK: if(7777.eq.777)then ! CHECK: if(7777.eq.777)then
! CHECK: print*,'pp037.F no: ',7777 ! CHECK: print*,'pp037.F no: ',7777
* fixed-form clipping NOT applied to #define * fixed-form clipping NOT applied to #define
integer, parameter :: KWM = 666 integer, parameter :: KWM = 666
* 1 2 3 4 5 6 7 * 1 2 3 4 5 6 7
*234567890123456789012345678901234567890123456789012345678901234567890123 *234567890123456789012345678901234567890123456789012345678901234567890123
#define KWM 7777 #define KWM 7777
if (KWM .eq. 777) then if (KWM .eq. 777) then
print *, 'pp037.F yes' print *, 'pp037.F yes'
else else
print *, 'pp037.F no: ', KWM print *, 'pp037.F no: ', KWM
end if end if
end end

flang/test/Preprocessing/pp038.F

! RUN: %f18 -E %s 2>&1 | FileCheck %s ! RUN: %flang -E %s 2>&1 | FileCheck %s
! CHECK: res=((666)+111) ! CHECK: res=((666)+111)
* FLM call with closing ')' on next line (not a continuation) * FLM call with closing ')' on next line (not a continuation)
integer function IFLM(x) integer function IFLM(x)
integer :: x integer :: x
IFLM = x IFLM = x
end function IFLM end function IFLM
program main program main
#define IFLM(x) ((x)+111) #define IFLM(x) ((x)+111)
Show All 9 Lines

flang/test/Preprocessing/pp039.F

! RUN: %f18 -E %s 2>&1 | FileCheck %s ! RUN: %flang -E %s 2>&1 | FileCheck %s
! CHECK: res=iflm ! CHECK: res=iflm
! CHECK: (666) ! CHECK: (666)
! CHECK-NOT: res=((666)+111) ! CHECK-NOT: res=((666)+111)
* FLM call with '(' on next line (not a continuation) * FLM call with '(' on next line (not a continuation)
integer function IFLM(x) integer function IFLM(x)
integer :: x integer :: x
IFLM = x IFLM = x
end function IFLM end function IFLM
Show All 11 Lines

flang/test/Preprocessing/pp040.F

! RUN: %f18 -E %s 2>&1 | FileCheck %s ! RUN: %flang -E %s 2>&1 | FileCheck %s
! CHECK-NOT: FAIL HARD! ! CHECK-NOT: FAIL HARD!
* #define KWM c, then KWM works as comment line initiator * #define KWM c, then KWM works as comment line initiator
#define KWM c #define KWM c
KWM print *, 'pp040.F FAIL HARD!'; stop KWM print *, 'pp040.F FAIL HARD!'; stop
print *, 'pp040.F yes' print *, 'pp040.F yes'
end end

flang/test/Preprocessing/pp041.F

! RUN: %f18 -E %s 2>&1 | FileCheck %s ! RUN: %flang -E %s 2>&1 | FileCheck %s
! CHECK: j=666wmj=j+1wm211 ! CHECK: j=666wmj=j+1wm211
* use KWM expansion as continuation indicators * use KWM expansion as continuation indicators
#define KWM 0 #define KWM 0
#define KWM2 1 #define KWM2 1
integer :: j integer :: j
j = 666 j = 666
KWM j = j + 1 KWM j = j + 1
KWM2 11 KWM2 11
if (j .eq. 777) then if (j .eq. 777) then
print *, 'pp041.F yes' print *, 'pp041.F yes'
else else
print *, 'pp041.F no', j print *, 'pp041.F no', j
end if end if
end end

flang/test/Preprocessing/pp042.F

! RUN: %f18 -E %s 2>&1 | FileCheck %s ! RUN: %flang -E %s 2>&1 | FileCheck %s
! CHECK-NOT: goto 2 ! CHECK-NOT: goto 2
* #define c 1, then use c as label in fixed-form * #define c 1, then use c as label in fixed-form
#define c 1 #define c 1
c print *, 'pp042.F yes'; goto 2 c print *, 'pp042.F yes'; goto 2
print *, 'pp042.F no' print *, 'pp042.F no'
2 continue 2 continue
end end

flang/test/Preprocessing/pp043.F

! RUN: %f18 -E %s 2>&1 | FileCheck %s ! RUN: %flang -E %s 2>&1 | FileCheck %s
! CHECK: if(kwm.eq.777)then ! CHECK: if(kwm.eq.777)then
* #define with # in column 6 is a continuation line in fixed-form * #define with # in column 6 is a continuation line in fixed-form
integer, parameter :: defineKWM666 = 555 integer, parameter :: defineKWM666 = 555
integer, parameter :: KWM = integer, parameter :: KWM =
#define KWM 666 #define KWM 666
++222 ++222
if (KWM .eq. 777) then if (KWM .eq. 777) then
print *, 'pp043.F yes' print *, 'pp043.F yes'
else else
print *, 'pp043.F no: ', KWM print *, 'pp043.F no: ', KWM
end if end if
end end

flang/test/Preprocessing/pp044.F

! RUN: %f18 -E %s 2>&1 | FileCheck %s ! RUN: %flang -E %s 2>&1 | FileCheck %s
! CHECK-NOT:z=111 ! CHECK-NOT:z=111
* #define directive amid continuations * #define directive amid continuations
integer, parameter :: KWM = 222, KWM111 = 333, KWM222 = 555 integer, parameter :: KWM = 222, KWM111 = 333, KWM222 = 555
integer, parameter :: KWMKWM = 333 integer, parameter :: KWMKWM = 333
integer, parameter :: z = KWM integer, parameter :: z = KWM
#define KWM 111 #define KWM 111
+KWM+444 +KWM+444
if (z .EQ. 777) then if (z .EQ. 777) then
print *, 'yes' print *, 'yes'
else else
print *, 'no', z print *, 'no', z
end if end if
end end

flang/test/Preprocessing/pp101.F90

! RUN: %f18 -E %s 2>&1 | FileCheck %s ! RUN: %flang -E %s 2>&1 | FileCheck %s
! CHECK: if(777 .eq. 777) then ! CHECK: if(777 .eq. 777) then
! keyword macros ! keyword macros
integer, parameter :: KWM = 666 integer, parameter :: KWM = 666
#define KWM 777 #define KWM 777
if (KWM .eq. 777) then if (KWM .eq. 777) then
print *, 'pp101.F90 yes' print *, 'pp101.F90 yes'
else else
print *, 'pp101.F90 no: ', KWM print *, 'pp101.F90 no: ', KWM
end if end if
end end

flang/test/Preprocessing/pp102.F90

! RUN: %f18 -E %s 2>&1 | FileCheck %s ! RUN: %flang -E %s 2>&1 | FileCheck %s
! CHECK: if(kwm .eq. 777) then ! CHECK: if(kwm .eq. 777) then
! #undef ! #undef
integer, parameter :: KWM = 777 integer, parameter :: KWM = 777
#define KWM 666 #define KWM 666
#undef KWM #undef KWM
if (KWM .eq. 777) then if (KWM .eq. 777) then
print *, 'pp102.F90 yes' print *, 'pp102.F90 yes'
else else
print *, 'pp102.F90 no: ', KWM print *, 'pp102.F90 no: ', KWM
end if end if
end end

flang/test/Preprocessing/pp103.F90

! RUN: %f18 -E %s 2>&1 | FileCheck %s ! RUN: %flang -E %s 2>&1 | FileCheck %s
! CHECK: res = ((666)+111) ! CHECK: res = ((666)+111)
! function-like macros ! function-like macros
integer function IFLM(x) integer function IFLM(x)
integer :: x integer :: x
IFLM = x IFLM = x
end function IFLM end function IFLM
program main program main
#define IFLM(x) ((x)+111) #define IFLM(x) ((x)+111)
integer :: res integer :: res
res = IFLM(666) res = IFLM(666)
if (res .eq. 777) then if (res .eq. 777) then
print *, 'pp103.F90 yes' print *, 'pp103.F90 yes'
else else
print *, 'pp103.F90 no: ', res print *, 'pp103.F90 no: ', res
end if end if
end end

flang/test/Preprocessing/pp104.F90

! RUN: %f18 -E %s 2>&1 | FileCheck %s ! RUN: %flang -E %s 2>&1 | FileCheck %s
! CHECK: if(kwm .eq. 777) then ! CHECK: if(kwm .eq. 777) then
! KWMs case-sensitive ! KWMs case-sensitive
integer, parameter :: KWM = 777 integer, parameter :: KWM = 777
#define KWM 666 #define KWM 666
if (kwm .eq. 777) then if (kwm .eq. 777) then
print *, 'pp104.F90 yes' print *, 'pp104.F90 yes'
else else
print *, 'pp104.F90 no: ', kwm print *, 'pp104.F90 no: ', kwm
end if end if
end end

flang/test/Preprocessing/pp105.F90

! RUN: %f18 -E %s 2>&1 | FileCheck %s ! RUN: %flang -E %s 2>&1 | FileCheck %s
! CHECK: res = 777 ! CHECK: res = 777
! KWM call name split across continuation, with leading & ! KWM call name split across continuation, with leading &
integer, parameter :: KWM = 666 integer, parameter :: KWM = 666
#define KWM 777 #define KWM 777
integer :: res integer :: res
res = KW& res = KW&
&M &M
if (res .eq. 777) then if (res .eq. 777) then
print *, 'pp105.F90 yes' print *, 'pp105.F90 yes'
else else
print *, 'pp105.F90 no: ', res print *, 'pp105.F90 no: ', res
end if end if
end end

flang/test/Preprocessing/pp106.F90

! RUN: %f18 -E %s 2>&1 | FileCheck %s ! RUN: %flang -E %s 2>&1 | FileCheck %s
! CHECK: res = 777 ! CHECK: res = 777
! ditto, with & ! comment ! ditto, with & ! comment
integer, parameter :: KWM = 666 integer, parameter :: KWM = 666
#define KWM 777 #define KWM 777
integer :: res integer :: res
res = KW& ! comment res = KW& ! comment
&M &M
if (res .eq. 777) then if (res .eq. 777) then
print *, 'pp106.F90 yes' print *, 'pp106.F90 yes'
else else
print *, 'pp106.F90 no: ', res print *, 'pp106.F90 no: ', res
end if end if
end end

flang/test/Preprocessing/pp107.F90

! RUN: %f18 -E %s 2>&1 | FileCheck %s ! RUN: %flang -E %s 2>&1 | FileCheck %s
! CHECK: res = kwm ! CHECK: res = kwm
! KWM call name split across continuation, no leading &, with & ! comment ! KWM call name split across continuation, no leading &, with & ! comment
integer, parameter :: KWM = 666 integer, parameter :: KWM = 666
#define KWM 777 #define KWM 777
integer :: res integer :: res
res = KW& ! comment res = KW& ! comment
M M
if (res .eq. 777) then if (res .eq. 777) then
print *, 'pp107.F90 yes' print *, 'pp107.F90 yes'
else else
print *, 'pp107.F90 no: ', res print *, 'pp107.F90 no: ', res
end if end if
end end

flang/test/Preprocessing/pp108.F90

! RUN: %f18 -E %s 2>&1 | FileCheck %s ! RUN: %flang -E %s 2>&1 | FileCheck %s
! CHECK: res = kwm ! CHECK: res = kwm
! ditto, but without & ! comment ! ditto, but without & ! comment
integer, parameter :: KWM = 666 integer, parameter :: KWM = 666
#define KWM 777 #define KWM 777
integer :: res integer :: res
res = KW& res = KW&
M M
if (res .eq. 777) then if (res .eq. 777) then
print *, 'pp108.F90 yes' print *, 'pp108.F90 yes'
else else
print *, 'pp108.F90 no: ', res print *, 'pp108.F90 no: ', res
end if end if
end end

flang/test/Preprocessing/pp109.F90

! RUN: %f18 -E %s 2>&1 | FileCheck %s ! RUN: %flang -E %s 2>&1 | FileCheck %s
! CHECK: res = ((666)+111) ! CHECK: res = ((666)+111)
! FLM call name split with leading & ! FLM call name split with leading &
integer function IFLM(x) integer function IFLM(x)
integer :: x integer :: x
IFLM = x IFLM = x
end function IFLM end function IFLM
program main program main
#define IFLM(x) ((x)+111) #define IFLM(x) ((x)+111)
Show All 9 Lines

flang/test/Preprocessing/pp110.F90

! RUN: %f18 -E %s 2>&1 | FileCheck %s ! RUN: %flang -E %s 2>&1 | FileCheck %s
! CHECK: res = ((666)+111) ! CHECK: res = ((666)+111)
! ditto, with & ! comment ! ditto, with & ! comment
integer function IFLM(x) integer function IFLM(x)
integer :: x integer :: x
IFLM = x IFLM = x
end function IFLM end function IFLM
program main program main
#define IFLM(x) ((x)+111) #define IFLM(x) ((x)+111)
Show All 9 Lines

flang/test/Preprocessing/pp111.F90

! RUN: %f18 -E %s 2>&1 | FileCheck %s ! RUN: %flang -E %s 2>&1 | FileCheck %s
! CHECK: res = iflm (666) ! CHECK: res = iflm (666)
! FLM call name split across continuation, no leading &, with & ! comment ! FLM call name split across continuation, no leading &, with & ! comment
integer function IFLM(x) integer function IFLM(x)
integer :: x integer :: x
IFLM = x IFLM = x
end function IFLM end function IFLM
program main program main
#define IFLM(x) ((x)+111) #define IFLM(x) ((x)+111)
Show All 9 Lines

flang/test/Preprocessing/pp112.F90

! RUN: %f18 -E %s 2>&1 | FileCheck %s ! RUN: %flang -E %s 2>&1 | FileCheck %s
! CHECK: res = iflm (666) ! CHECK: res = iflm (666)
! ditto, but without & ! comment ! ditto, but without & ! comment
integer function IFLM(x) integer function IFLM(x)
integer :: x integer :: x
IFLM = x IFLM = x
end function IFLM end function IFLM
program main program main
#define IFLM(x) ((x)+111) #define IFLM(x) ((x)+111)
Show All 9 Lines

flang/test/Preprocessing/pp113.F90

! RUN: %f18 -E %s 2>&1 | FileCheck %s ! RUN: %flang -E %s 2>&1 | FileCheck %s
! CHECK: res = ((666)+111) ! CHECK: res = ((666)+111)
! FLM call split across continuation between name and (, leading & ! FLM call split across continuation between name and (, leading &
integer function IFLM(x) integer function IFLM(x)
integer :: x integer :: x
IFLM = x IFLM = x
end function IFLM end function IFLM
program main program main
#define IFLM(x) ((x)+111) #define IFLM(x) ((x)+111)
Show All 9 Lines

flang/test/Preprocessing/pp114.F90

! RUN: %f18 -E %s 2>&1 | FileCheck %s ! RUN: %flang -E %s 2>&1 | FileCheck %s
! CHECK: res = ((666)+111) ! CHECK: res = ((666)+111)
! ditto, with & ! comment, leading & ! ditto, with & ! comment, leading &
integer function IFLM(x) integer function IFLM(x)
integer :: x integer :: x
IFLM = x IFLM = x
end function IFLM end function IFLM
program main program main
#define IFLM(x) ((x)+111) #define IFLM(x) ((x)+111)
Show All 9 Lines

flang/test/Preprocessing/pp115.F90

! RUN: %f18 -E %s 2>&1 | FileCheck %s ! RUN: %flang -E %s 2>&1 | FileCheck %s
! CHECK: res = iflm (666) ! CHECK: res = iflm (666)
! ditto, with & ! comment, no leading & ! ditto, with & ! comment, no leading &
integer function IFLM(x) integer function IFLM(x)
integer :: x integer :: x
IFLM = x IFLM = x
end function IFLM end function IFLM
program main program main
#define IFLM(x) ((x)+111) #define IFLM(x) ((x)+111)
Show All 9 Lines

flang/test/Preprocessing/pp116.F90

! RUN: %f18 -E %s 2>&1 | FileCheck %s ! RUN: %flang -E %s 2>&1 | FileCheck %s
! CHECK: res = iflm (666) ! CHECK: res = iflm (666)
! FLM call split between name and (, no leading & ! FLM call split between name and (, no leading &
integer function IFLM(x) integer function IFLM(x)
integer :: x integer :: x
IFLM = x IFLM = x
end function IFLM end function IFLM
program main program main
#define IFLM(x) ((x)+111) #define IFLM(x) ((x)+111)
Show All 9 Lines

flang/test/Preprocessing/pp117.F90

! RUN: %f18 -E %s 2>&1 | FileCheck %s ! RUN: %flang -E %s 2>&1 | FileCheck %s
! CHECK: if(777 .eq. 777) then ! CHECK: if(777 .eq. 777) then
! KWM rescan ! KWM rescan
integer, parameter :: KWM = 666, KWM2 = 667 integer, parameter :: KWM = 666, KWM2 = 667
#define KWM2 777 #define KWM2 777
#define KWM KWM2 #define KWM KWM2
if (KWM .eq. 777) then if (KWM .eq. 777) then
print *, 'pp117.F90 yes' print *, 'pp117.F90 yes'
else else
print *, 'pp117.F90 no: ', KWM print *, 'pp117.F90 no: ', KWM
end if end if
end end

flang/test/Preprocessing/pp118.F90

! RUN: %f18 -E %s 2>&1 | FileCheck %s ! RUN: %flang -E %s 2>&1 | FileCheck %s
! CHECK: if(kwm2 .eq. 777) then ! CHECK: if(kwm2 .eq. 777) then
! KWM rescan with #undef, proving rescan after expansion ! KWM rescan with #undef, proving rescan after expansion
integer, parameter :: KWM2 = 777, KWM = 667 integer, parameter :: KWM2 = 777, KWM = 667
#define KWM2 666 #define KWM2 666
#define KWM KWM2 #define KWM KWM2
#undef KWM2 #undef KWM2
if (KWM .eq. 777) then if (KWM .eq. 777) then
print *, 'pp118.F90 yes' print *, 'pp118.F90 yes'
else else
print *, 'pp118.F90 no: ', KWM print *, 'pp118.F90 no: ', KWM
end if end if
end end

flang/test/Preprocessing/pp119.F90

! RUN: %f18 -E %s 2>&1 | FileCheck %s ! RUN: %flang -E %s 2>&1 | FileCheck %s
! CHECK: res = ((666)+111) ! CHECK: res = ((666)+111)
! FLM rescan ! FLM rescan
integer function IFLM(x) integer function IFLM(x)
integer :: x integer :: x
IFLM = x IFLM = x
end function IFLM end function IFLM
program main program main
integer, parameter :: KWM = 999 integer, parameter :: KWM = 999
Show All 10 Lines

flang/test/Preprocessing/pp120.F90

! RUN: %f18 -E %s 2>&1 | FileCheck %s ! RUN: %flang -E %s 2>&1 | FileCheck %s
! CHECK: res = ((111)+666) ! CHECK: res = ((111)+666)
! FLM expansion of argument ! FLM expansion of argument
integer function IFLM(x) integer function IFLM(x)
integer :: x integer :: x
IFLM = x IFLM = x
end function IFLM end function IFLM
program main program main
integer, parameter :: KWM = 999 integer, parameter :: KWM = 999
Show All 10 Lines

flang/test/Preprocessing/pp121.F90

! RUN: %f18 -E %s 2>&1 | FileCheck %s ! RUN: %flang -E %s 2>&1 | FileCheck %s
! CHECK: ch = 'KWM' ! CHECK: ch = 'KWM'
! CHECK: if(ch .eq. 'KWM') then ! CHECK: if(ch .eq. 'KWM') then
! KWM NOT expanded in 'literal' ! KWM NOT expanded in 'literal'
#define KWM 666 #define KWM 666
character(len=3) :: ch character(len=3) :: ch
ch = 'KWM' ch = 'KWM'
if (ch .eq. 'KWM') then if (ch .eq. 'KWM') then
print *, 'pp121.F90 yes' print *, 'pp121.F90 yes'
else else
print *, 'pp121.F90 no: ', ch print *, 'pp121.F90 no: ', ch
end if end if
end end

flang/test/Preprocessing/pp122.F90

! RUN: %f18 -E %s 2>&1 | FileCheck %s ! RUN: %flang -E %s 2>&1 | FileCheck %s
! CHECK: ch = "KWM" ! CHECK: ch = "KWM"
! KWM NOT expanded in "literal" ! KWM NOT expanded in "literal"
#define KWM 666 #define KWM 666
character(len=3) :: ch character(len=3) :: ch
ch = "KWM" ch = "KWM"
if (ch .eq. 'KWM') then if (ch .eq. 'KWM') then
print *, 'pp122.F90 yes' print *, 'pp122.F90 yes'
else else
print *, 'pp122.F90 no: ', ch print *, 'pp122.F90 no: ', ch
end if end if
end end

flang/test/Preprocessing/pp123.F90

! RUN: %f18 -E %s 2>&1 | FileCheck %s ! RUN: %flang -E %s 2>&1 | FileCheck %s
! CHECK: ch = 3hKWM ! CHECK: ch = 3hKWM
! KWM NOT expanded in Hollerith literal ! KWM NOT expanded in Hollerith literal
#define KWM 666 #define KWM 666
#define HKWM 667 #define HKWM 667
character(len=3) :: ch character(len=3) :: ch
ch = 3HKWM ch = 3HKWM
if (ch .eq. 'KWM') then if (ch .eq. 'KWM') then
print *, 'pp123.F90 yes' print *, 'pp123.F90 yes'
else else
print *, 'pp123.F90 no: ', ch print *, 'pp123.F90 no: ', ch
end if end if
end end

flang/test/Preprocessing/pp124.F90

! RUN: %f18 -E %s 2>&1 | FileCheck %s ! RUN: %flang -E %s 2>&1 | FileCheck %s
! CHECK: 100 format(3hKWM) ! CHECK: 100 format(3hKWM)
! KWM NOT expanded in Hollerith in FORMAT ! KWM NOT expanded in Hollerith in FORMAT
#define KWM 666 #define KWM 666
#define HKWM 667 #define HKWM 667
character(len=3) :: ch character(len=3) :: ch
100 format(3HKWM) 100 format(3HKWM)
write(ch, 100) write(ch, 100)
if (ch .eq. 'KWM') then if (ch .eq. 'KWM') then
print *, 'pp124.F90 yes' print *, 'pp124.F90 yes'
else else
print *, 'pp124.F90 no: ', ch print *, 'pp124.F90 no: ', ch
end if end if
end end

flang/test/Preprocessing/pp125.F90

! RUN: %f18 -E %s 2>&1 | FileCheck %s ! RUN: %flang -E %s 2>&1 | FileCheck %s
! CHECK: if(777 .eq. 777) then ! CHECK: if(777 .eq. 777) then
! #DEFINE works in free form ! #DEFINE works in free form
integer, parameter :: KWM = 666 integer, parameter :: KWM = 666
#DEFINE KWM 777 #DEFINE KWM 777
if (KWM .eq. 777) then if (KWM .eq. 777) then
print *, 'pp125.F90 yes' print *, 'pp125.F90 yes'
else else
print *, 'pp125.F90 no: ', KWM print *, 'pp125.F90 no: ', KWM
end if end if
end end

flang/test/Preprocessing/pp126.F90

! RUN: %f18 -E %s 2>&1 | FileCheck %s ! RUN: %flang -E %s 2>&1 | FileCheck %s
! CHECK: if(777 .eq. 777) then ! CHECK: if(777 .eq. 777) then
! \ newline works in #define ! \ newline works in #define
integer, parameter :: KWM = 666 integer, parameter :: KWM = 666
#define KWM 77\ #define KWM 77\
7 7
if (KWM .eq. 777) then if (KWM .eq. 777) then
print *, 'pp126.F90 yes' print *, 'pp126.F90 yes'
else else
print *, 'pp126.F90 no: ', KWM print *, 'pp126.F90 no: ', KWM
end if end if
end end

flang/test/Preprocessing/pp127.F90

! RUN: %f18 -E %s 2>&1 | FileCheck %s ! RUN: %flang -E %s 2>&1 | FileCheck %s
! CHECK: res = iflm(666 ) ! CHECK: res = iflm(666 )
! FLM call with closing ')' on next line (not a continuation) ! FLM call with closing ')' on next line (not a continuation)
integer function IFLM(x) integer function IFLM(x)
integer :: x integer :: x
IFLM = x IFLM = x
end function IFLM end function IFLM
program main program main
#define IFLM(x) ((x)+111) #define IFLM(x) ((x)+111)
Show All 9 Lines

flang/test/Preprocessing/pp128.F90

! RUN: %f18 -E %s 2>&1 | FileCheck %s ! RUN: %flang -E %s 2>&1 | FileCheck %s
! CHECK: res = iflm ! CHECK: res = iflm
! FLM call with '(' on next line (not a continuation) ! FLM call with '(' on next line (not a continuation)
integer function IFLM(x) integer function IFLM(x)
integer :: x integer :: x
IFLM = x IFLM = x
end function IFLM end function IFLM
program main program main
#define IFLM(x) ((x)+111) #define IFLM(x) ((x)+111)
Show All 9 Lines

flang/test/Preprocessing/pp129.F90

! RUN: %f18 -E %s 2>&1 | FileCheck %s ! RUN: %flang -E %s 2>&1 | FileCheck %s
! CHECK-NOT: stop ! CHECK-NOT: stop
! #define KWM !, then KWM works as comment line initiator ! #define KWM !, then KWM works as comment line initiator
#define KWM ! #define KWM !
KWM print *, 'pp129.F90 FAIL HARD!'; stop KWM print *, 'pp129.F90 FAIL HARD!'; stop
print *, 'pp129.F90 yes' print *, 'pp129.F90 yes'
end end

flang/test/Preprocessing/pp130.F90

! RUN: (%f18 -E %s 2>&1 || true) | FileCheck %s ! RUN: (%flang -E %s 2>&1 || true) | FileCheck %s
! CHECK: error: bad character ('&') in Fortran token ! CHECK: error: bad character ('&') in Fortran token
! #define KWM &, use for continuation w/o pasting (ifort and nag seem to continue #define) ! #define KWM &, use for continuation w/o pasting (ifort and nag seem to continue #define)
#define KWM & #define KWM &
integer :: j integer :: j
j = 666 j = 666
j = j + KWM j = j + KWM
111 111
if (j .eq. 777) then if (j .eq. 777) then
print *, 'pp130.F90 yes' print *, 'pp130.F90 yes'
else else
print *, 'pp130.F90 no', j print *, 'pp130.F90 no', j
end if end if
end end

flang/test/lit.cfg.py

Show First 20 Lines • Show All 67 Lines • ▼ Show 20 Lines
tools = [ tools = [
ToolSubst('%f18', command=FindTool('f18'), ToolSubst('%f18', command=FindTool('f18'),
extra_args=["-intrinsic-module-directory "+config.flang_intrinsic_modules_dir], extra_args=["-intrinsic-module-directory "+config.flang_intrinsic_modules_dir],
unresolved='fatal') unresolved='fatal')
] ]
if config.include_flang_new_driver_test: if config.include_flang_new_driver_test:
tools.append(ToolSubst('%flang-new', command=FindTool('flang-new'), unresolved='fatal')) tools.append(ToolSubst('%flang-new', command=FindTool('flang-new'), unresolved='fatal'))
tools.append(ToolSubst('%flang', command=FindTool('flang-new'), unresolved='fatal'))
else:
tools.append(ToolSubst('%flang', command=FindTool('f18'),
extra_args=["-intrinsic-module-directory "+config.flang_intrinsic_modules_dir],
unresolved='fatal'))
if config.flang_standalone_build: if config.flang_standalone_build:
llvm_config.add_tool_substitutions(tools, [config.flang_llvm_tools_dir]) llvm_config.add_tool_substitutions(tools, [config.flang_llvm_tools_dir])
else: else:
llvm_config.add_tool_substitutions(tools, config.llvm_tools_dir) llvm_config.add_tool_substitutions(tools, config.llvm_tools_dir)
# Enable libpgmath testing # Enable libpgmath testing
result = lit_config.params.get("LIBPGMATH") result = lit_config.params.get("LIBPGMATH")
if result: if result:
config.environment["LIBPGMATH"] = True config.environment["LIBPGMATH"] = True