31 lines · plain
1! RUN: %flang_fc1 -Wfatal-errors -pedantic %s 2>&1 | FileCheck %s --check-prefix=CHECK12! RUN: not %flang_fc1 -pedantic -Werror %s 2>&1 | FileCheck %s --check-prefix=CHECK23! RUN: not %flang_fc1 -Wfatal-errors -pedantic -Werror %s 2>&1 | FileCheck %s --check-prefix=CHECK34 5module m6 contains7 subroutine foo(a)8 real, intent(in), target :: a(:)9 end subroutine10end module11 12program test13 use m14 real, target :: a(1)15 real :: b(1)16 call foo(a) ! ok17 !CHECK1: fatal-errors-warnings.f90:{{.*}} warning:18 !CHECK2: fatal-errors-warnings.f90:{{.*}} warning:19 !CHECK3: fatal-errors-warnings.f90:{{.*}} warning:20 call foo(b)21 !CHECK1: fatal-errors-warnings.f90:{{.*}} warning:22 !CHECK2: fatal-errors-warnings.f90:{{.*}} warning:23 !CHECK3-NOT: error:24 !CHECK3-NOT: warning:25 call foo((a))26 !CHECK1: fatal-errors-warnings.f90:{{.*}} warning:27 !CHECK2: fatal-errors-warnings.f90:{{.*}} warning:28 call foo(a([1]))29 !! Hard error instead of warning if uncommented.30 !call foo(a(1))31end