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