1! RUN: %S/test_errors.sh %s %t %flang_fc1
2! REQUIRES: shell
3! Check that expressions are analyzed in data statements
4
5subroutine s1
6  type :: t
7    character(1) :: c
8  end type
9  type(t) :: x
10  !ERROR: Value in structure constructor of type INTEGER(4) is incompatible with component 'c' of type CHARACTER(KIND=1,LEN=1_8)
11  data x /t(1)/
12end
13
14subroutine s2
15  real :: x1, x2
16  integer :: i1, i2
17  !ERROR: Unsupported REAL(KIND=99)
18  data x1 /1.0_99/
19  !ERROR: Unsupported REAL(KIND=99)
20  data x2 /-1.0_99/
21  !ERROR: INTEGER(KIND=99) is not a supported type
22  data i1 /1_99/
23  !ERROR: INTEGER(KIND=99) is not a supported type
24  data i2 /-1_99/
25end
26
27subroutine s3
28  complex :: z1, z2
29  !ERROR: Unsupported REAL(KIND=99)
30  data z1 /(1.0, 2.0_99)/
31  !ERROR: Unsupported REAL(KIND=99)
32  data z2 /-(1.0, 2.0_99)/
33end
34