blob: 530753443a00705b9cc5e10d6d97e0f79cc4f44a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
! RUN: %flang -E %s 2>&1 | FileCheck %s
! CHECK-NOT:z = 111
! CHECK:warning: Statement should not begin with a continuation line
! CHECK:j=111+444
* #define directive amid continuations.
integer, parameter :: KWM = 222
integer, parameter :: z = KWM
#define KWM 111
,j=KWM+444
if (z .EQ. 222 .AND. j .EQ. 555) then
print *, 'yes'
else
print *, 'no', z, _4
end if
end
|
