1! RUN: %f18 -E %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