16 lines · plain
1!RUN: %flang_fc1 -fdebug-unparse %s 2>&1 | FileCheck %s2 3character(kind=4), parameter :: c(2) = [character(kind=4) :: &44_'🍌', 4_'水' ]5print *, '🍌'6print *, 4_'🍌'7print *, '水'8print *, 4_'水'9end10 11!CHECK: CHARACTER(KIND=4_4), PARAMETER :: c(2_4) = [CHARACTER(KIND=4,LEN=1)::4_"\360\237\215\214",4_"\346\260\264"]12!CHECK: PRINT *, "\360\237\215\214"13!CHECK: PRINT *, 4_"\360\237\215\214"14!CHECK: PRINT *, "\346\260\264"15!CHECK: PRINT *, 4_"\346\260\264"16