1! RUN: %flang -E -Xflang -fno-reformat %s 2>&1 | FileCheck %s
2! CHECK: character*1hi
3! CHECK: dataa/1*1h /
4! CHECK: datab/1*1h /
5! CHECK: do1h=1,2
6 CHARACTER*1H I
7 CHARACTER*1 A,B
8 INTEGER H
9 DATA A/1*1H /
10 DATA B/
11 +1*1H /
12 DO1H =1,2
13 1 CONTINUE
14 END
15