mirror of
https://github.com/llvm/llvm-project.git
synced 2025-04-17 14:26:49 +00:00
9191738764
As an extension, accept the redundant use of the CONTIGUOUS attribute when applied to scalars and to simply contiguous objects, with a portability warning.
22 lines
1.1 KiB
Fortran
22 lines
1.1 KiB
Fortran
! RUN: %python %S/test_errors.py %s %flang_fc1 -pedantic
|
|
! Testing for pointer constant, along with :
|
|
! C751 A component shall not have both the ALLOCATABLE and POINTER attributes.
|
|
! C752 If the CONTIGUOUS attribute is specified, the component shall be an
|
|
! array with the POINTER attribute.
|
|
! C753 The * char-length option is permitted only if the component is of type
|
|
! character.
|
|
subroutine s()
|
|
!ERROR: 'nullint' may not have both the POINTER and PARAMETER attributes
|
|
integer, pointer, parameter :: nullint => null()
|
|
type derivedType
|
|
!ERROR: 'pointerallocatablefield' may not have both the POINTER and ALLOCATABLE attributes
|
|
real, pointer, allocatable :: pointerAllocatableField
|
|
real, dimension(:), contiguous, pointer :: goodContigField
|
|
!PORTABILITY: CONTIGUOUS component 'badcontigfield' should be an array with the POINTER attribute
|
|
real, dimension(:), contiguous, allocatable :: badContigField
|
|
character :: charField * 3
|
|
!ERROR: A length specifier cannot be used to declare the non-character entity 'realfield'
|
|
real :: realField * 3
|
|
end type derivedType
|
|
end subroutine s
|