mirror of
https://github.com/llvm/llvm-project.git
synced 2025-04-17 03:36:37 +00:00
0bb3260b7c
Entities declared with CLASS() must be dummy arguments, allocatables, or pointers. This constraint check is currently correct for objects but not for procedures, and getting it right needs to avoid being confused between pointers to procedures and pointers returned by procedures. Differential Revision: https://reviews.llvm.org/D155491
49 lines
2.1 KiB
Fortran
49 lines
2.1 KiB
Fortran
! RUN: %python %S/test_errors.py %s %flang_fc1
|
|
! Error tests for recursive use of derived types.
|
|
! C744 If neither the POINTER nor the ALLOCATABLE attribute is specified, the
|
|
! declaration-type-spec in the component-def-stmt shall specify an intrinsic
|
|
! type or a previously defined derived type.
|
|
|
|
program main
|
|
type :: recursive1
|
|
!ERROR: Recursive use of the derived type requires POINTER or ALLOCATABLE
|
|
type(recursive1) :: bad1
|
|
type(recursive1), pointer :: ok1
|
|
type(recursive1), allocatable :: ok2
|
|
!ERROR: Recursive use of the derived type requires POINTER or ALLOCATABLE
|
|
!ERROR: CLASS entity 'bad2' must be a dummy argument, allocatable, or object pointer
|
|
class(recursive1) :: bad2
|
|
class(recursive1), pointer :: ok3
|
|
class(recursive1), allocatable :: ok4
|
|
end type recursive1
|
|
type :: recursive2(kind,len)
|
|
integer, kind :: kind
|
|
integer, len :: len
|
|
!ERROR: Recursive use of the derived type requires POINTER or ALLOCATABLE
|
|
type(recursive2(kind,len)) :: bad1
|
|
type(recursive2(kind,len)), pointer :: ok1
|
|
type(recursive2(kind,len)), allocatable :: ok2
|
|
!ERROR: Recursive use of the derived type requires POINTER or ALLOCATABLE
|
|
!ERROR: CLASS entity 'bad2' must be a dummy argument, allocatable, or object pointer
|
|
class(recursive2(kind,len)) :: bad2
|
|
class(recursive2(kind,len)), pointer :: ok3
|
|
class(recursive2(kind,len)), allocatable :: ok4
|
|
end type recursive2
|
|
type :: recursive3(kind,len)
|
|
integer, kind :: kind = 1
|
|
integer, len :: len = 2
|
|
!ERROR: Recursive use of the derived type requires POINTER or ALLOCATABLE
|
|
type(recursive3) :: bad1
|
|
type(recursive3), pointer :: ok1
|
|
type(recursive3), allocatable :: ok2
|
|
!ERROR: Recursive use of the derived type requires POINTER or ALLOCATABLE
|
|
!ERROR: CLASS entity 'bad2' must be a dummy argument, allocatable, or object pointer
|
|
class(recursive3) :: bad2
|
|
class(recursive3), pointer :: ok3
|
|
class(recursive3), allocatable :: ok4
|
|
end type recursive3
|
|
!ERROR: Derived type 'recursive4' cannot extend itself
|
|
type, extends(recursive4) :: recursive4
|
|
end type recursive4
|
|
end program main
|