15 lines · plain
1! RUN: %flang -E -Xflang -fno-reformat %s 2>&1 | FileCheck %s2! CHECK: character*1hi3! CHECK: dataa/1*1h /4! CHECK: datab/1*1h /5! CHECK: do1h=1,26 CHARACTER*1H I7 CHARACTER*1 A,B8 INTEGER H9 DATA A/1*1H /10 DATA B/11 +1*1H /12 DO1H =1,213 1 CONTINUE14 END15