18 lines · plain
1! RUN: %python %S/test_errors.py %s %flang_fc1 -pedantic -Werror2subroutine from(a, b, c, d)3 real a(10), b(:), c4 real, contiguous :: d(:)5 call to(a)6 call to(a(1)) ! ok7 call to(b) ! ok, passed via temp8 !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]9 call to(b(1))10 !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]11 call to(c)12 !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]13 call to(1.)14 call to([1., 2.]) ! ok15 call to(d) ! ok16 call to(d(1)) ! ok17end18