33 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12! Check that expressions are analyzed in data statements3 4subroutine s15 type :: t6 character(1) :: c7 end type8 type(t) :: x9 !ERROR: Value in structure constructor of type 'INTEGER(4)' is incompatible with component 'c' of type 'CHARACTER(KIND=1,LEN=1_8)'10 data x /t(1)/11end12 13subroutine s214 real :: x1, x215 integer :: i1, i216 !ERROR: Unsupported REAL(KIND=99)17 data x1 /1.0_99/18 !ERROR: Unsupported REAL(KIND=99)19 data x2 /-1.0_99/20 !ERROR: INTEGER(KIND=99) is not a supported type21 data i1 /1_99/22 !ERROR: INTEGER(KIND=99) is not a supported type23 data i2 /-1_99/24end25 26subroutine s327 complex :: z1, z228 !ERROR: Unsupported REAL(KIND=99)29 data z1 /(1.0, 2.0_99)/30 !ERROR: Unsupported REAL(KIND=99)31 data z2 /-(1.0, 2.0_99)/32end33