aboutsummaryrefslogtreecommitdiffstats
path: root/gcc-4.9/gcc/testsuite/gfortran.fortran-torture/execute/where_11.f90
diff options
context:
space:
mode:
Diffstat (limited to 'gcc-4.9/gcc/testsuite/gfortran.fortran-torture/execute/where_11.f90')
-rw-r--r--gcc-4.9/gcc/testsuite/gfortran.fortran-torture/execute/where_11.f9023
1 files changed, 23 insertions, 0 deletions
diff --git a/gcc-4.9/gcc/testsuite/gfortran.fortran-torture/execute/where_11.f90 b/gcc-4.9/gcc/testsuite/gfortran.fortran-torture/execute/where_11.f90
new file mode 100644
index 000000000..f2eb69f2e
--- /dev/null
+++ b/gcc-4.9/gcc/testsuite/gfortran.fortran-torture/execute/where_11.f90
@@ -0,0 +1,23 @@
+! Check whether conditional ELSEWHEREs work
+! (without unconditional ELSEWHERE)
+program where_11
+ integer :: a(5)
+ integer :: b(5)
+
+ a = (/1, 2, 3, 4, 5/)
+ b = (/0, 0, 0, 0, 0/)
+ where (a .eq. 1)
+ b = 3
+ elsewhere (a .eq. 2)
+ b = 1
+ elsewhere (a .eq. 3)
+ b = 4
+ elsewhere (a .eq. 4)
+ b = 1
+ elsewhere (a .eq. 5)
+ b = 5
+ endwhere
+ if (any (b .ne. (/3, 1, 4, 1, 5/))) &
+ call abort
+end program
+