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