[flang] Fix expected error messages in tests to correspond with recen…

…t update to compiler Original-commit: flang-compiler/f18@95202dd Reviewed-on: flang-compiler/f18#721
llvm · Sep 9, 2019 · de97404 · de97404
1 parent 1a7c1c1
commit de97404
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 4 deletions.
diff --git a/flang/test/semantics/call11.f90 b/flang/test/semantics/call11.f90
@@ -47,7 +47,7 @@ subroutine test
     end forall
     ! ERROR: concurrent-header mask expression cannot reference an impure procedure
     do concurrent (j=1:1, impure(j) /= 0) ! C1121
-      ! ERROR: call to impure subroutine in DO CONCURRENT not allowed
+      ! ERROR: call to impure procedure in DO CONCURRENT not allowed
       a(j) = impure(j) ! C1139
     end do
   end subroutine

diff --git a/flang/test/semantics/doconcurrent01.f90 b/flang/test/semantics/doconcurrent01.f90
@@ -48,10 +48,10 @@ subroutine do_concurrent_test2(i,j,n,flag)
   type(team_type) :: j
   do concurrent (i = 1:n)
     change team (j)
-!ERROR: call to impure subroutine in DO CONCURRENT not allowed
+!ERROR: call to impure procedure in DO CONCURRENT not allowed
 !ERROR: IEEE_GET_FLAG not allowed in DO CONCURRENT
       call ieee_get_flag(flag, flag2)
-!ERROR: call to impure subroutine in DO CONCURRENT not allowed
+!ERROR: call to impure procedure in DO CONCURRENT not allowed
 !ERROR: IEEE_GET_HALTING_MODE not allowed in DO CONCURRENT
       call ieee_get_halting_mode(flag, halting)
 !ERROR: IEEE_SET_HALTING_MODE not allowed in DO CONCURRENT

diff --git a/flang/test/semantics/doconcurrent02.f90 b/flang/test/semantics/doconcurrent02.f90
@@ -18,7 +18,7 @@
 ! RUN: ${F18} -funparse-with-symbols %s 2>&1 | ${FileCheck} %s
 ! CHECK-NOT: image control statement not allowed in DO CONCURRENT
 ! CHECK-NOT: RETURN not allowed in DO CONCURRENT
-! CHECK-NOT: call to impure subroutine in DO CONCURRENT not allowed
+! CHECK-NOT: call to impure procedure in DO CONCURRENT not allowed
 ! CHECK-NOT: IEEE_GET_FLAG not allowed in DO CONCURRENT
 ! CHECK-NOT: ADVANCE specifier not allowed in DO CONCURRENT
 ! CHECK-NOT: SYNC ALL