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