42 lines · plain
1!RUN: %flang_fc1 -fdebug-unparse -I%S/Inputs %s | FileCheck %s2program main3 use comporder24 type, extends(intermediate) :: last5 integer c36 end type7 !CHECK:PRINT *, last(c1=1_4,c2=2_4,c3=3_4)8 print *, last(1,2,3)9 !CHECK:PRINT *, last(c1=11_4,c2=12_4,c3=13_4)10 print *, last(c3=13,c2=12,c1=11)11 !CHECK:PRINT *, last(c1=21_4,c2=22_4,c3=23_4)12 print *, last(c3=23,c1=21,c2=22)13 !CHECK:PRINT *, last(c1=31_4,c2=32_4,c3=33_4)14 print *, last(c2=32,c3=33,c1=31)15 !CHECK:PRINT *, last(c1=41_4,c2=42_4,c3=43_4)16 print *, last(c2=42,c1=41,c3=43)17 !CHECK:PRINT *, last(c1=51_4,c2=52_4,c3=53_4)18 print *, last(c1=51,c3=53,c2=52)19 !CHECK:PRINT *, last(c1=61_4,c2=62_4,c3=63_4)20 print *, last(c1=61,c2=62,c3=63)21 !CHECK:PRINT *, last(intermediate=intermediate(c1=71_4,c2=72_4),c3=73_4)22 print *, last(c3=73,intermediate=intermediate(c2=72,c1=71))23 !CHECK:PRINT *, last(intermediate=intermediate(c1=81_4,c2=82_4),c3=83_4)24 print *, last(c3=83,intermediate=intermediate(c1=81,c2=82))25 !CHECK:PRINT *, last(intermediate=intermediate(c1=91_4,c2=92_4),c3=93_4)26 print *, last(intermediate(c2=92,c1=91),c3=93)27 !CHECK:PRINT *, last(intermediate=intermediate(c1=101_4,c2=102_4),c3=103_4)28 print *, last(intermediate(c1=101,c2=102),c3=103)29 !CHECK:PRINT *, last(intermediate=intermediate(base=base(c1=111_4),c2=112_4),c3=113_4)30 print *, last(c3=113,intermediate=intermediate(c2=112,base=base(c1=111)))31 !CHECK:PRINT *, last(intermediate=intermediate(base=base(c1=121_4),c2=122_4),c3=123_4)32 print *, last(c3=123,intermediate=intermediate(base(c1=121),c2=122))33 !CHECK:PRINT *, last(intermediate=intermediate(base=base(c1=131_4),c2=132_4),c3=133_4)34 print *, last(intermediate(c2=132,base=base(c1=131)),c3=133)35 !CHECK:PRINT *, last(intermediate=intermediate(base=base(c1=141_4),c2=142_4),c3=143_4)36 print *, last(intermediate(base(c1=141),c2=142),c3=143)37 !CHECK:PRINT *, last(base=base(c1=151_4),c2=152_4,c3=153_4)38 print *, last(base(151),c3=153,c2=152)39 !CHECK:PRINT *, last(base=base(c1=161_4),c2=162_4,c3=163_4)40 print *, last(base(161),c2=162,c3=163)41end42