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