| Tim Keith | 99aa87a | 2020-05-11 18:38:53 | [diff] [blame^] | 1 | ! RUN: %S/test_errors.sh %s %t %f18 |
| Tim Keith | d396a88 | 2019-02-09 00:03:23 | [diff] [blame] | 2 | module m |
| 3 | implicit none |
| 4 | real, parameter :: a = 8.0 |
| peter klausler | b39d0c5 | 2019-04-12 00:22:16 | [diff] [blame] | 5 | !ERROR: Must have INTEGER type, but is REAL(4) |
| Tim Keith | d396a88 | 2019-02-09 00:03:23 | [diff] [blame] | 6 | integer :: aa = 2_a |
| 7 | integer :: b = 8 |
| Pete Steinfeld | 657aaf8 | 2020-02-27 04:19:48 | [diff] [blame] | 8 | ! C713 A scalar-int-constant-name shall be a named constant of type integer. |
| Tim Keith | d396a88 | 2019-02-09 00:03:23 | [diff] [blame] | 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 |
| 28 | end |
