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.
18 lines
976 B
Fortran
18 lines
976 B
Fortran
! RUN: %python %S/test_errors.py %s %flang_fc1 -pedantic -Werror
|
|
subroutine from(a, b, c, d)
|
|
real a(10), b(:), c
|
|
real, contiguous :: d(:)
|
|
call to(a)
|
|
call to(a(1)) ! ok
|
|
call to(b) ! ok, passed via temp
|
|
!WARNING: Reference to the procedure 'to' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes [-Wincompatible-implicit-interfaces]
|
|
call to(b(1))
|
|
!WARNING: Reference to the procedure 'to' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes [-Wincompatible-implicit-interfaces]
|
|
call to(c)
|
|
!WARNING: Reference to the procedure 'to' has an implicit interface that is distinct from another reference: incompatible dummy argument #1: incompatible dummy data object shapes [-Wincompatible-implicit-interfaces]
|
|
call to(1.)
|
|
call to([1., 2.]) ! ok
|
|
call to(d) ! ok
|
|
call to(d(1)) ! ok
|
|
end
|