16 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12type A (p, r)3 integer, kind :: p, r4 !ERROR: KIND parameter expression (int(selected_real_kind(six,twenty_three),kind=8)) of intrinsic type REAL did not resolve to a constant value5 real (selected_real_kind(p, r)) :: data6end type7 integer :: six = 6, twenty_three = 238 type(a(6,23)) :: a19 !ERROR: Value of KIND type parameter 'p' must be constant10 !ERROR: Value of KIND type parameter 'r' must be constant11 !WARNING: specification expression refers to local object 'six' (initialized and saved) [-Wsaved-local-in-spec-expr]12 !WARNING: specification expression refers to local object 'twenty_three' (initialized and saved) [-Wsaved-local-in-spec-expr]13 type(a(six, twenty_three)) :: a214 print *, a1%data%kind15end16