blob: a707d2bc484baa496cc9a6a06d52e73cdd37eeaf [file] [log] [blame]
! RUN: %flang -E -Xflang -fno-reformat %s 2>&1 | FileCheck %s
! CHECK: character*1hi
! CHECK: dataa/1*1h /
! CHECK: datab/1*1h /
! CHECK: do1h=1,2
CHARACTER*1H I
CHARACTER*1 A,B
INTEGER H
DATA A/1*1H /
DATA B/
+1*1H /
DO1H =1,2
1 CONTINUE
END