| peter klausler | 089adc3 | 2020-08-03 17:50:42 | [diff] [blame^] | 1 | ! RUN: %f18 -E %s 2>&1 | FileCheck %s |
| 2 | ! CHECK: if(777.eq.777)then |
| peter klausler | d6c8bd8 | 2019-10-04 22:21:31 | [diff] [blame] | 3 | * /* C comment */ erased from #define |
| 4 | integer, parameter :: KWM = 666 |
| 5 | #define KWM 777 /* C comment */ |
| 6 | if (KWM .eq. 777) then |
| peter klausler | 089adc3 | 2020-08-03 17:50:42 | [diff] [blame^] | 7 | print *, 'pp030.F yes' |
| peter klausler | d6c8bd8 | 2019-10-04 22:21:31 | [diff] [blame] | 8 | else |
| peter klausler | 089adc3 | 2020-08-03 17:50:42 | [diff] [blame^] | 9 | print *, 'pp030.F no: ', KWM |
| peter klausler | d6c8bd8 | 2019-10-04 22:21:31 | [diff] [blame] | 10 | end if |
| 11 | end |
