diff options
Diffstat (limited to 'flang/test/Semantics/doconcurrent01.f90')
-rw-r--r-- | flang/test/Semantics/doconcurrent01.f90 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/flang/test/Semantics/doconcurrent01.f90 b/flang/test/Semantics/doconcurrent01.f90 index 36595df5a62f..0f4e13da2290 100644 --- a/flang/test/Semantics/doconcurrent01.f90 +++ b/flang/test/Semantics/doconcurrent01.f90 @@ -66,7 +66,7 @@ end subroutine do_concurrent_test2 subroutine s1() use iso_fortran_env - type(event_type) :: x[*] + type(event_type) :: x do concurrent (i = 1:n) !ERROR: An image control statement is not allowed in DO CONCURRENT event post (x) @@ -75,7 +75,7 @@ end subroutine s1 subroutine s2() use iso_fortran_env - type(event_type) :: x[*] + type(event_type) :: x do concurrent (i = 1:n) !ERROR: An image control statement is not allowed in DO CONCURRENT event wait (x) |