From 554fd8c5195424bdbcabf5de30fdc183aba391bd Mon Sep 17 00:00:00 2001
From: upstream source tree <ports@midipix.org>
Date: Sun, 15 Mar 2015 20:14:05 -0400
Subject: obtained gcc-4.6.4.tar.bz2 from upstream website; verified
 gcc-4.6.4.tar.bz2.sig; imported gcc-4.6.4 source tree from verified upstream
 tarball.

downloading a git-generated archive based on the 'upstream' tag
should provide you with a source tree that is binary identical
to the one extracted from the above tarball.

if you have obtained the source via the command 'git clone',
however, do note that line-endings of files in your working
directory might differ from line-endings of the respective
files in the upstream repository.
---
 gcc/testsuite/gfortran.dg/data_invalid.f90 | 122 +++++++++++++++++++++++++++++
 1 file changed, 122 insertions(+)
 create mode 100644 gcc/testsuite/gfortran.dg/data_invalid.f90

(limited to 'gcc/testsuite/gfortran.dg/data_invalid.f90')

diff --git a/gcc/testsuite/gfortran.dg/data_invalid.f90 b/gcc/testsuite/gfortran.dg/data_invalid.f90
new file mode 100644
index 000000000..960a8f3d3
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/data_invalid.f90
@@ -0,0 +1,122 @@
+! { dg-do compile }
+! { dg-options "-std=f95 -fmax-errors=0" }
+!
+! Testcases from PR fortran/24978
+!
+
+SUBROUTINE data_init_scalar_invalid()
+  integer :: a
+  data       a / 1 /
+  data       a / 1 /                             ! { dg-error "re-initialization" }
+
+  integer :: b = 0
+  data       b / 1 /                             ! { dg-error "re-initialization" }
+END SUBROUTINE
+
+SUBROUTINE data_init_array_invalid()
+  ! initialize (at least) one element, re-initialize full array
+  integer :: a(3)
+  data       a(2) / 2 /
+  data       a    / 3*1 /                        ! { dg-error "re-initialization" }
+
+  ! initialize (at least) one element, re-initialize subsection including the element
+  integer :: b(3)
+  data       b(2)   / 2 /
+  data       b(1:2) / 2*1 /                      ! { dg-error "re-initialization" }
+
+  ! initialize subsection, re-initialize (intersecting) subsection
+  integer :: c(3)
+  data       c(1:2) / 2*1 /
+  data       c(2:3) / 1,1 /                      ! { dg-error "re-initialization" }
+
+  ! initialize subsection, re-initialize full array
+  integer :: d(3)
+  data       d(2:3) / 2*1 /
+  data       d      / 2*2, 3 /                   ! { dg-error "re-initialization" }
+
+  ! full array initializer, re-initialize (at least) one element
+  integer :: e(3)
+  data       e    / 3*1 /
+  data       e(2) / 2 /                          ! { dg-error "re-initialization" }
+
+  integer :: f(3) = 0                            ! { dg-error "already is initialized" }
+  data       f(2) / 1 /
+
+  ! full array initializer, re-initialize subsection
+  integer :: g(3)
+  data       g      / 3*1 /
+  data       g(1:2) / 2*2 /                      ! { dg-error "re-initialization" }
+
+  integer :: h(3) = 1                            ! { dg-error "already is initialized" }
+  data       h(2:3) / 2*2 /
+
+  ! full array initializer, re-initialize full array
+  integer :: i(3)
+  data       i   / 3*1 /
+  data       i   / 2,2,2 /                       ! { dg-error "re-initialization" }
+
+  integer :: j(3) = 1                            ! { dg-error "already is initialized" }
+  data       j   / 3*2 /
+END SUBROUTINE
+
+SUBROUTINE data_init_matrix_invalid()
+  ! initialize (at least) one element, re-initialize full matrix
+  integer :: a(3,3)
+  data       a(2,2) / 1 /
+  data       a      / 9*2 /                      ! { dg-error "re-initialization" }
+
+  ! initialize (at least) one element, re-initialize subsection
+  integer :: b(3,3)
+  data       b(2,2) / 1 /
+  data       b(2,:) / 3*2 /                      ! { dg-error "re-initialization" }
+
+  ! initialize subsection, re-initialize (intersecting) subsection
+  integer :: c(3,3)
+  data       c(3,:) / 3*1 /, c(:,3) / 3*2 /      ! { dg-error "re-initialization" }
+
+  ! initialize subsection, re-initialize full array
+  integer :: d(3,3)
+  data       d(2,:) / 1,2,3 /
+  data       d      / 9*4 /                      ! { dg-error "re-initialization" }
+
+  ! full array initializer, re-initialize (at least) one element
+  integer :: e(3,3)
+  data       e      / 9*1 /
+  data       e(2,3) / 2 /                        ! { dg-error "re-initialization" }
+
+  integer :: f(3,3) = 1                          ! { dg-error "already is initialized" }
+  data       f(3,2) / 2 /
+
+  ! full array initializer, re-initialize subsection
+  integer :: g(3,3)
+  data       g          / 9 * 1 /
+  data       g(2:3,2:3) / 2, 2*3, 4 /            ! { dg-error "re-initialization" }
+
+  integer :: h(3,3) = 1                          ! { dg-error "already is initialized" }
+  data       h(2:3,2:3) / 2, 2*3, 4 /
+
+  ! full array initializer, re-initialize full array
+  integer :: i(3,3)
+  data       i   / 3*1, 3*2, 3*3 /
+  data       i   / 9 * 1 /                       ! { dg-error "re-initialization" }
+
+  integer :: j(3,3) = 0                          ! { dg-error "already is initialized" }
+  data       j   / 9 * 1 /
+END SUBROUTINE
+
+SUBROUTINE data_init_misc_invalid()
+  ! wrong number of dimensions
+  integer :: a(3)
+  data       a(1,1) / 1 /                        ! { dg-error "Rank mismatch" }
+
+  ! index out-of-bounds, direct access
+  integer :: b(3)
+  data       b(-2) / 1 /                         ! { dg-error "below array lower bound" }
+
+  ! index out-of-bounds, implied do-loop (PR32315)
+  integer :: i
+  character(len=20), dimension(4) :: string
+  data (string(i), i = 1, 5) / 'A', 'B', 'C', 'D', 'E' /   ! { dg-error "above array upper bound" }
+END SUBROUTINE
+
+! { dg-excess-errors "" }
-- 
cgit v1.2.3