1! RUN: %S/test_errors.sh %s %t %f18
2! C712 The value of scalar-int-constant-expr shall be nonnegative and
3! shall specify a representation method that exists on the processor.
4! C714 The value of kind-param shall be nonnegative.
5! C715 The value of kind-param shall specify a representation method that
6! exists on the processor.
7! C719 The value of scalar-int-constant-expr shall be nonnegative and shall
8! specify a representation method that exists on the processor.
9! C725 The optional comma in a length-selector is permitted only if no
10! double-colon separator appears in the typedeclaration- stmt.
11! C727 The value of kind-param shall specify a representation method that
12! exists on the processor.
13! C728 The value of kind-param shall specify a representation method that
14! exists on the processor.
15!
16!ERROR: INTEGER(KIND=0) is not a supported type
17integer(kind=0) :: j0
18!ERROR: INTEGER(KIND=-1) is not a supported type
19integer(kind=-1) :: jm1
20!ERROR: INTEGER(KIND=3) is not a supported type
21integer(kind=3) :: j3
22!ERROR: INTEGER(KIND=32) is not a supported type
23integer(kind=32) :: j32
24!ERROR: REAL(KIND=0) is not a supported type
25real(kind=0) :: a0
26!ERROR: REAL(KIND=-1) is not a supported type
27real(kind=-1) :: am1
28!ERROR: REAL(KIND=1) is not a supported type
29real(kind=1) :: a1
30!ERROR: REAL(KIND=7) is not a supported type
31real(kind=7) :: a7
32!ERROR: REAL(KIND=32) is not a supported type
33real(kind=32) :: a32
34!ERROR: COMPLEX(KIND=0) is not a supported type
35complex(kind=0) :: z0
36!ERROR: COMPLEX(KIND=-1) is not a supported type
37complex(kind=-1) :: zm1
38!ERROR: COMPLEX(KIND=1) is not a supported type
39complex(kind=1) :: z1
40!ERROR: COMPLEX(KIND=7) is not a supported type
41complex(kind=7) :: z7
42!ERROR: COMPLEX(KIND=32) is not a supported type
43complex(kind=32) :: z32
44!ERROR: COMPLEX*1 is not a supported type
45complex*1 :: zs1
46!ERROR: COMPLEX*2 is not a supported type
47complex*2 :: zs2
48!ERROR: COMPLEX*64 is not a supported type
49complex*64 :: zs64
50!ERROR: LOGICAL(KIND=0) is not a supported type
51logical(kind=0) :: l0
52!ERROR: LOGICAL(KIND=-1) is not a supported type
53logical(kind=-1) :: lm1
54!ERROR: LOGICAL(KIND=3) is not a supported type
55logical(kind=3) :: l3
56!ERROR: LOGICAL(KIND=16) is not a supported type
57logical(kind=16) :: l16
58integer, parameter :: negOne = -1
59!ERROR: unsupported LOGICAL(KIND=0)
60logical :: lvar0 = .true._0
61logical :: lvar1 = .true._1
62logical :: lvar2 = .true._2
63!ERROR: unsupported LOGICAL(KIND=3)
64logical :: lvar3 = .true._3
65logical :: lvar4 = .true._4
66!ERROR: unsupported LOGICAL(KIND=5)
67logical :: lvar5 = .true._5
68!ERROR: unsupported LOGICAL(KIND=-1)
69logical :: lvar6 = .true._negOne
70character (len=99, kind=1) :: cvar1
71character (len=99, kind=2) :: cvar2
72character *4, cvar3
73character *(5), cvar4
74!ERROR: KIND value (3) not valid for CHARACTER
75character (len=99, kind=3) :: cvar5
76!ERROR: KIND value (-1) not valid for CHARACTER
77character (len=99, kind=-1) :: cvar6
78character(len=*), parameter :: cvar7 = 1_"abcd"
79character(len=*), parameter :: cvar8 = 2_"abcd"
80!ERROR: CHARACTER(KIND=3) is not a supported type
81character(len=*), parameter :: cvar9 = 3_"abcd"
82character(len=*), parameter :: cvar10 = 4_"abcd"
83!ERROR: CHARACTER(KIND=8) is not a supported type
84character(len=*), parameter :: cvar11 = 8_"abcd"
85end program
86
87subroutine s(a, b)
88  character(*,2) :: a
89  !ERROR: KIND value (8) not valid for CHARACTER
90  character(*,8) :: b
91end
92