95 lines · plain
1! REQUIRES: x86_64-registered-target2! RUN: %python %S/test_errors.py %s %flang_fc13! C712 The value of scalar-int-constant-expr shall be nonnegative and 4! shall specify a representation method that exists on the processor.5! C714 The value of kind-param shall be nonnegative.6! C715 The value of kind-param shall specify a representation method that 7! exists on the processor.8! C719 The value of scalar-int-constant-expr shall be nonnegative and shall 9! specify a representation method that exists on the processor.10! C725 The optional comma in a length-selector is permitted only if no 11! double-colon separator appears in the typedeclaration- stmt.12! C727 The value of kind-param shall specify a representation method that 13! exists on the processor.14! C728 The value of kind-param shall specify a representation method that 15! exists on the processor.16!17!ERROR: INTEGER(KIND=0) is not a supported type18integer(kind=0) :: j019!ERROR: INTEGER(KIND=-1) is not a supported type20integer(kind=-1) :: jm121!ERROR: INTEGER(KIND=3) is not a supported type22integer(kind=3) :: j323!ERROR: INTEGER(KIND=32) is not a supported type24integer(kind=32) :: j3225!ERROR: REAL(KIND=0) is not a supported type26real(kind=0) :: a027!ERROR: REAL(KIND=-1) is not a supported type28real(kind=-1) :: am129!ERROR: REAL(KIND=1) is not a supported type30real(kind=1) :: a131!ERROR: REAL(KIND=7) is not a supported type32real(kind=7) :: a733!ERROR: REAL(KIND=32) is not a supported type34real(kind=32) :: a3235!ERROR: COMPLEX(KIND=0) is not a supported type36complex(kind=0) :: z037!ERROR: COMPLEX(KIND=-1) is not a supported type38complex(kind=-1) :: zm139!ERROR: COMPLEX(KIND=1) is not a supported type40complex(kind=1) :: z141!ERROR: COMPLEX(KIND=7) is not a supported type42complex(kind=7) :: z743!ERROR: COMPLEX(KIND=32) is not a supported type44complex(kind=32) :: z3245!ERROR: COMPLEX*1 is not a supported type46complex*1 :: zs147!ERROR: COMPLEX*2 is not a supported type48complex*2 :: zs249!ERROR: COMPLEX*64 is not a supported type50complex*64 :: zs6451!ERROR: LOGICAL(KIND=0) is not a supported type52logical(kind=0) :: l053!ERROR: LOGICAL(KIND=-1) is not a supported type54logical(kind=-1) :: lm155!ERROR: LOGICAL(KIND=3) is not a supported type56logical(kind=3) :: l357!ERROR: LOGICAL(KIND=16) is not a supported type58logical(kind=16) :: l1659integer, parameter :: negOne = -160!ERROR: unsupported LOGICAL(KIND=0)61logical :: lvar0 = .true._062logical :: lvar1 = .true._163logical :: lvar2 = .true._264!ERROR: unsupported LOGICAL(KIND=3)65logical :: lvar3 = .true._366logical :: lvar4 = .true._467!ERROR: unsupported LOGICAL(KIND=5)68logical :: lvar5 = .true._569!ERROR: unsupported LOGICAL(KIND=-1)70logical :: lvar6 = .true._negOne71character (len=99, kind=1) :: cvar172character (len=99, kind=2) :: cvar273character *4, cvar374character *(5), cvar475!ERROR: KIND value (3) not valid for CHARACTER76character (len=99, kind=3) :: cvar577!ERROR: KIND value (-1) not valid for CHARACTER78character (len=99, kind=-1) :: cvar679character(len=*), parameter :: cvar7 = 1_"abcd"80character(len=*), parameter :: cvar8 = 2_"abcd"81!ERROR: CHARACTER(KIND=3) is not a supported type82character(len=*), parameter :: cvar9 = 3_"abcd"83character(len=*), parameter :: cvar10 = 4_"abcd"84!ERROR: CHARACTER(KIND=8) is not a supported type85character(len=*), parameter :: cvar11 = 8_"abcd"86!ERROR: Unsupported type kind value (5000000000)87print *, 123_500000000088end program89 90subroutine s(a, b)91 character(*,2) :: a92 !ERROR: KIND value (8) not valid for CHARACTER93 character(*,8) :: b94end95