29 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc12module m3 implicit none4 real, parameter :: a = 8.05 !ERROR: Must have INTEGER type, but is REAL(4)6 integer :: aa = 2_a7 integer :: b = 88 ! C713 A scalar-int-constant-name shall be a named constant of type integer.9 !ERROR: Must be a constant value10 integer :: bb = 2_b11 !TODO: should get error -- not scalar12 !integer, parameter :: c(10) = 813 !integer :: cc = 2_c14 integer, parameter :: d = 4715 !ERROR: INTEGER(KIND=47) is not a supported type16 integer :: dd = 2_d17 !ERROR: Parameter 'e' not found18 integer :: ee = 2_e19 !ERROR: Missing initialization for parameter 'f'20 integer, parameter :: f21 integer :: ff = 2_f22 !ERROR: REAL(KIND=23) is not a supported type23 real(d/2) :: g24 !ERROR: REAL(KIND=47) is not a supported type25 real*47 :: h26 !ERROR: COMPLEX*47 is not a supported type27 complex*47 :: i28end29