83b462af17
Adds a hint to the warning message to disable a warning and updates the tests to expect this. Also fixes a bug in the storage of canonical spelling of error flags so that they are not used after free.
40 lines
1.7 KiB
Fortran
40 lines
1.7 KiB
Fortran
! RUN: %python %S/test_errors.py %s %flang_fc1 -pedantic
|
|
module m0
|
|
real, pointer, contiguous :: p1(:) ! ok
|
|
real, pointer :: p2(:)
|
|
end
|
|
module m
|
|
use m0
|
|
!WARNING: Use-associated 'p1' already has 'CONTIGUOUS' attribute [-Wredundant-attribute]
|
|
contiguous p1
|
|
!ERROR: Cannot change CONTIGUOUS attribute on use-associated 'p2'
|
|
contiguous p2
|
|
!PORTABILITY: CONTIGUOUS entity 'x' should be an array pointer, assumed-shape, or assumed-rank [-Wredundant-contiguous]
|
|
real, contiguous :: x
|
|
!PORTABILITY: CONTIGUOUS entity 'scalar' should be an array pointer, assumed-shape, or assumed-rank [-Wredundant-contiguous]
|
|
real, contiguous, pointer :: scalar
|
|
!PORTABILITY: CONTIGUOUS entity 'allocatable' should be an array pointer, assumed-shape, or assumed-rank [-Wredundant-contiguous]
|
|
real, contiguous, allocatable :: allocatable
|
|
contains
|
|
!PORTABILITY: CONTIGUOUS entity 'func' should be an array pointer, assumed-shape, or assumed-rank [-Wredundant-contiguous]
|
|
function func(ashape,arank) result(r)
|
|
real, contiguous :: ashape(:) ! ok
|
|
real, contiguous :: arank(..) ! ok
|
|
!PORTABILITY: CONTIGUOUS entity 'r' should be an array pointer, assumed-shape, or assumed-rank [-Wredundant-contiguous]
|
|
real :: r(10)
|
|
!PORTABILITY: CONTIGUOUS entity 'r2' should be an array pointer, assumed-shape, or assumed-rank [-Wredundant-contiguous]
|
|
real :: r2(10)
|
|
contiguous func
|
|
contiguous r
|
|
contiguous e
|
|
contiguous r2
|
|
!PORTABILITY: CONTIGUOUS entity 'e' should be an array pointer, assumed-shape, or assumed-rank [-Wredundant-contiguous]
|
|
entry e() result(r2)
|
|
r2 = 0
|
|
end
|
|
function fp()
|
|
real, pointer, contiguous :: fp(:) ! ok
|
|
nullify(fp)
|
|
end
|
|
end
|