18 lines · plain
1! RUN: %flang_fc1 -fdebug-unparse %s 2>&1 | FileCheck %s2! Test parsing of alternative order of char-length in an3! entity-decl or component-decl.4program p5 type t6 !CHECK: CHARACTER c1(2_4)*3/"abc", "def"/7 character c1*3(2)/'abc','def'/8 end type9 integer, parameter :: n=310 !CHECK: CHARACTER v1(2_4)*(3_4)/"ghi", "jkl"/11 character v1*(n)(2)/'ghi','jkl'/12 !CHECK: CHARACTER :: v2(1_4)*2 = "mn"13 character::v2*2(1)='mn'14end15 16 17 18