1! RUN: %S/test_errors.sh %s %t %flang_fc1
2! REQUIRES: shell
3module m
4  implicit none
5  real, parameter :: a = 8.0
6  !ERROR: Must have INTEGER type, but is REAL(4)
7  integer :: aa = 2_a
8  integer :: b = 8
9  ! C713 A scalar-int-constant-name shall be a named constant of type integer.
10  !ERROR: Must be a constant value
11  integer :: bb = 2_b
12  !TODO: should get error -- not scalar
13  !integer, parameter :: c(10) = 8
14  !integer :: cc = 2_c
15  integer, parameter :: d = 47
16  !ERROR: INTEGER(KIND=47) is not a supported type
17  integer :: dd = 2_d
18  !ERROR: Parameter 'e' not found
19  integer :: ee = 2_e
20  !ERROR: Missing initialization for parameter 'f'
21  integer, parameter :: f
22  integer :: ff = 2_f
23  !ERROR: REAL(KIND=23) is not a supported type
24  real(d/2) :: g
25  !ERROR: REAL*47 is not a supported type
26  real*47 :: h
27  !ERROR: COMPLEX*47 is not a supported type
28  complex*47 :: i
29end
30