1c91d9bdea
Before emitting a warning message, code should check that the usage in question should be diagnosed by calling ShouldWarn(). A fair number of sites in the code do not, and can emit portability warnings unconditionally, which can confuse a user that hasn't asked for them (-pedantic) and isn't terribly concerned about portability *to* other compilers. Add calls to ShouldWarn() or IsEnabled() around messages that need them, and add -pedantic to tests that now require it to test their portability messages, and add more expected message lines to those tests when -pedantic causes other diagnostics to fire.
72 lines
2.9 KiB
Fortran
72 lines
2.9 KiB
Fortran
! RUN: %python %S/test_errors.py %s %flang_fc1 -pedantic
|
|
! Test warnings and errors about DIM= arguments to transformational intrinsics
|
|
|
|
module m
|
|
contains
|
|
function f0a(a)
|
|
real, intent(in) :: a(:)
|
|
!ERROR: The value of DIM= (-1) may not be less than 1
|
|
f0a = sum(a,dim=-1)
|
|
end function
|
|
function f0b(a)
|
|
real, intent(in) :: a(:)
|
|
!ERROR: The value of DIM= (2) may not be greater than 1
|
|
f0b = sum(a,dim=2)
|
|
end function
|
|
function f1(a,d)
|
|
real, intent(in) :: a(:)
|
|
integer, optional, intent(in) :: d
|
|
!PORTABILITY: The actual argument for DIM= is optional, pointer, or allocatable, and it is assumed to be present and equal to 1 at execution time
|
|
f1 = sum(a,dim=d)
|
|
!PORTABILITY: The actual argument for DIM= is optional, pointer, or allocatable, and it is assumed to be present and equal to 1 at execution time
|
|
f1 = norm2(a,dim=d)
|
|
end function
|
|
function f2(a,d)
|
|
real, intent(in) :: a(:)
|
|
integer, pointer, intent(in) :: d
|
|
!PORTABILITY: The actual argument for DIM= is optional, pointer, or allocatable, and it is assumed to be present and equal to 1 at execution time
|
|
f2 = sum(a,dim=d)
|
|
end function
|
|
function f3(a,d)
|
|
real, intent(in) :: a(:)
|
|
integer, allocatable, intent(in) :: d
|
|
!PORTABILITY: The actual argument for DIM= is optional, pointer, or allocatable, and it is assumed to be present and equal to 1 at execution time
|
|
f3 = sum(a,dim=d)
|
|
end function
|
|
function f10a(a)
|
|
real, intent(in) :: a(:,:)
|
|
real, allocatable :: f10a(:)
|
|
!ERROR: The value of DIM= (-1) may not be less than 1
|
|
f10a = sum(a,dim=-1)
|
|
end function
|
|
function f10b(a)
|
|
real, intent(in) :: a(:,:)
|
|
real, allocatable :: f10b(:)
|
|
!ERROR: The value of DIM= (3) may not be greater than 2
|
|
f10b = sum(a,dim=3)
|
|
end function
|
|
function f11(a,d)
|
|
real, intent(in) :: a(:,:)
|
|
integer, optional, intent(in) :: d
|
|
real, allocatable :: f11(:)
|
|
!WARNING: The actual argument for DIM= is optional, pointer, or allocatable, and may not be absent during execution; parenthesize to silence this warning
|
|
f11 = sum(a,dim=d)
|
|
!WARNING: The actual argument for DIM= is optional, pointer, or allocatable, and may not be absent during execution; parenthesize to silence this warning
|
|
f11 = norm2(a,dim=d)
|
|
end function
|
|
function f12(a,d)
|
|
real, intent(in) :: a(:,:)
|
|
integer, pointer, intent(in) :: d
|
|
real, allocatable :: f12(:)
|
|
!WARNING: The actual argument for DIM= is optional, pointer, or allocatable, and may not be absent during execution; parenthesize to silence this warning
|
|
f12 = sum(a,dim=d)
|
|
end function
|
|
function f13(a,d)
|
|
real, intent(in) :: a(:,:)
|
|
integer, allocatable, intent(in) :: d
|
|
real, allocatable :: f13(:)
|
|
!WARNING: The actual argument for DIM= is optional, pointer, or allocatable, and may not be absent during execution; parenthesize to silence this warning
|
|
f13 = sum(a,dim=d)
|
|
end function
|
|
end module
|