| /external/llvm-project/flang/test/Preprocessing/ |
| D | pp043.F | 5 integer, parameter :: KWM = variable
6 #define KWM 666
8 if (KWM .eq. 777) then
11 print *, 'pp043.F no: ', KWM
|
| D | pp027.F | 5 integer, parameter :: KWM = 666 variable
7 if (KWM .eq. 777) then
10 print *, 'pp027.F no: ', KWM
|
| D | pp001.F | 4 integer, parameter :: KWM = 666 variable
6 if (KWM .eq. 777) then
9 print *, 'pp001.F no: ', KWM
|
| D | pp037.F | 5 integer, parameter :: KWM = 666 variable
9 if (KWM .eq. 777) then
12 print *, 'pp037.F no: ', KWM
|
| D | pp125.F90 | 4 integer, parameter :: KWM = 666 variable
6 if (KWM .eq. 777) then
9 print *, 'pp125.F90 no: ', KWM
|
| D | pp002.F | 4 integer, parameter :: KWM = 777 variable
7 if (KWM .eq. 777) then
10 print *, 'pp002.F no: ', KWM
|
| D | pp033.F | 5 integer, parameter :: KWM = 666 variable
8 if (KWM .eq. 777) then
11 print *, 'pp033.F no: ', KWM
|
| D | pp102.F90 | 4 integer, parameter :: KWM = 777 variable
7 if (KWM .eq. 777) then
10 print *, 'pp102.F90 no: ', KWM
|
| D | pp032.F | 5 integer, parameter :: KWM = 666 variable
8 if (KWM .eq. 777) then
11 print *, 'pp032.F no: ', KWM
|
| D | pp035.F | 5 integer, parameter :: KWM = 666 variable
11 if (KWM .eq. 777) then
14 print *, 'pp035.F no: ', KWM
|
| D | pp030.F | 4 integer, parameter :: KWM = 666 variable
6 if (KWM .eq. 777) then
9 print *, 'pp030.F no: ', KWM
|
| D | pp101.F90 | 4 integer, parameter :: KWM = 666 variable
6 if (KWM .eq. 777) then
9 print *, 'pp101.F90 no: ', KWM
|
| D | pp031.F | 5 integer, parameter :: KWM = 666 variable
7 if (KWM .eq. 777) then
10 print *, 'pp031.F no: ', KWM
|
| D | pp126.F90 | 4 integer, parameter :: KWM = 666 variable
7 if (KWM .eq. 777) then
10 print *, 'pp126.F90 no: ', KWM
|
| D | pp029.F | 4 integer, parameter :: KWM = 666 variable
7 if (KWM .eq. 777) then
10 print *, 'pp029.F no: ', KWM
|
| D | pp018.F | 4 integer, parameter :: KWM2 = 777, KWM = 667 variable
8 if (KWM .eq. 777) then
11 print *, 'pp018.F no: ', KWM
|
| D | pp118.F90 | 4 integer, parameter :: KWM2 = 777, KWM = 667 variable
8 if (KWM .eq. 777) then
11 print *, 'pp118.F90 no: ', KWM
|
| D | pp117.F90 | 4 integer, parameter :: KWM = 666, KWM2 = 667 variable
7 if (KWM .eq. 777) then
10 print *, 'pp117.F90 no: ', KWM
|
| D | pp017.F | 4 integer, parameter :: KWM = 666, KWM2 = 667 variable
7 if (KWM .eq. 777) then
10 print *, 'pp017.F no: ', KWM
|
| D | pp044.F | 4 integer, parameter :: KWM = 222, KWM111 = 333, KWM222 = 555 variable
6 integer, parameter :: z = KWM
8 +KWM+444
|
| D | pp120.F90 | 9 integer, parameter :: KWM = 999 variable
13 res = IFLM(KWM)
|
| D | pp020.F | 9 integer, parameter :: KWM = 999 variable
13 res = IFLM(KWM)
|
| D | pp026.F | 9 integer, parameter :: KWM = 668, KWM21 = 111, KWM1 = 669 variable
15 res = IFLM(KWM)
|
| D | pp104.F90 | 4 integer, parameter :: KWM = 777 variable
|
| D | pp004.F | 4 integer, parameter :: KWM = 777 variable
|