llvm-project/flang/test/Preprocessing/pp125.F90

Ignoring revisions in .git-blame-ignore-revs. Click here to bypass and see the normal blame view.

10 lines
221 B
Fortran
Raw Normal View History

! #DEFINE works in free form
integer, parameter :: KWM = 666
#DEFINE KWM 777
if (KWM .eq. 777) then
print *, 'pp125.F90 pass'
else
print *, 'pp125.F90 FAIL: ', KWM
end if
end