38095549c6
Summary: Many of these were already implemented, and I just annotated the tests and/or the code. C752 was a simple check to verify that CONTIGUOUS components are arrays with C754 proved to be virtually identical to C750 that I implemented previously. This caused me to remove the distinction between specification expressions for type parameters and bounds expressions that I'd previously created. the POINTER attribute. I also changed the error messages to specify that errors in specification expressions could arise from either bad derived type components or type parameters. In cases where we detect a type param that was not declared, I created a symbol marked as erroneous. That avoids subsequent semantic process for expressions containing the symbol. This change caused me to adjust tests resolve33.f90 and resolve34.f90. Also, I avoided putting out error messages for erroneous type param symbols in `OkToAddComponent()` in resolve-names.cpp and in `EvaluateParameters()`, type.cpp. C756 checks that procedure components have the POINTER attribute. Reviewers: tskeith, klausler, DavidTruby Subscribers: llvm-commits Tags: #llvm, #flang Differential Revision: https://reviews.llvm.org/D79798
106 lines
2.5 KiB
Fortran
106 lines
2.5 KiB
Fortran
! RUN: %S/test_errors.sh %s %t %f18
|
|
! C735 If EXTENDS appears, SEQUENCE shall not appear.
|
|
! C738 The same private-or-sequence shall not appear more than once in a
|
|
! given derived-type-def .
|
|
!
|
|
! C740 If SEQUENCE appears,
|
|
! the type shall have at least one component,
|
|
! each data component shall be declared to be of an intrinsic type or of a sequence type,
|
|
! the derived type shall not have any type parameter,
|
|
! and a type-bound-procedure-part shall not appear.
|
|
subroutine s1
|
|
integer :: t0
|
|
!ERROR: 't0' is not a derived type
|
|
type(t0) :: x
|
|
type :: t1
|
|
end type
|
|
type, extends(t1) :: t2
|
|
end type
|
|
!ERROR: Derived type 't3' not found
|
|
type, extends(t3) :: t4
|
|
end type
|
|
!ERROR: 't0' is not a derived type
|
|
type, extends(t0) :: t5
|
|
end type
|
|
end subroutine
|
|
|
|
module m1
|
|
type t0
|
|
end type
|
|
end
|
|
module m2
|
|
type t
|
|
end type
|
|
end
|
|
module m3
|
|
type t0
|
|
end type
|
|
end
|
|
subroutine s2
|
|
use m1
|
|
use m2, t0 => t
|
|
use m3
|
|
!ERROR: Reference to 't0' is ambiguous
|
|
type, extends(t0) :: t1
|
|
end type
|
|
end subroutine
|
|
|
|
module m4
|
|
type :: t1
|
|
private
|
|
sequence
|
|
private ! not a fatal error
|
|
sequence ! not a fatal error
|
|
real :: t1Field
|
|
end type
|
|
type :: t1a
|
|
end type
|
|
!ERROR: A sequence type may not have the EXTENDS attribute
|
|
type, extends(t1a) :: t2
|
|
sequence
|
|
integer i
|
|
end type
|
|
type :: t3
|
|
sequence
|
|
integer i
|
|
!ERROR: A sequence type may not have a CONTAINS statement
|
|
contains
|
|
end type
|
|
!ERROR: A sequence type must have at least one component
|
|
type :: emptyType
|
|
sequence
|
|
end type emptyType
|
|
type :: plainType
|
|
real :: plainField
|
|
end type plainType
|
|
type :: sequenceType
|
|
sequence
|
|
real :: sequenceField
|
|
end type sequenceType
|
|
type :: testType
|
|
sequence
|
|
!ERROR: A sequence type data component must either be of an intrinsic type or a derived sequence type
|
|
class(*), allocatable :: typeStarField
|
|
!ERROR: A sequence type data component must either be of an intrinsic type or a derived sequence type
|
|
type(plainType) :: testField1
|
|
type(sequenceType) :: testField2
|
|
procedure(real), pointer, nopass :: procField
|
|
end type testType
|
|
!ERROR: A sequence type may not have type parameters
|
|
type :: paramType(param)
|
|
integer, kind :: param
|
|
sequence
|
|
real :: paramField
|
|
end type paramType
|
|
contains
|
|
subroutine s3
|
|
type :: t1
|
|
!ERROR: PRIVATE is only allowed in a derived type that is in a module
|
|
private
|
|
contains
|
|
!ERROR: PRIVATE is only allowed in a derived type that is in a module
|
|
private
|
|
end type
|
|
end
|
|
end
|