089adc339e
And fix a minor bug exposed by doing so. Differential Revision: https://reviews.llvm.org/D85164
9 lines
209 B
Fortran
9 lines
209 B
Fortran
! RUN: %f18 -E %s 2>&1 | FileCheck %s
|
|
! CHECK-NOT: goto 2
|
|
* #define c 1, then use c as label in fixed-form
|
|
#define c 1
|
|
c print *, 'pp042.F yes'; goto 2
|
|
print *, 'pp042.F no'
|
|
2 continue
|
|
end
|