[deliverable/binutils-gdb.git] / gdb / testsuite / gdb.mi / array.f

c Copyright 2006-2016 Free Software Foundation, Inc.

c This program is free software; you can redistribute it and/or modify
c it under the terms of the GNU General Public License as published by
c the Free Software Foundation; either version 3 of the License, or
c (at your option) any later version.
c
c This program is distributed in the hope that it will be useful,
c but WITHOUT ANY WARRANTY; without even the implied warranty of
c MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
c GNU General Public License for more details.
c
c You should have received a copy of the GNU General Public License
c along with this program.  If not, see <http://www.gnu.org/licenses/>.

      INTEGER array(1:2,-1:1)
      DATA array/11,21,12,22,13,23/
      CONTINUE
      STOP
      END
Commit	Line	Data
618f726f	1	c Copyright 2006-2016 Free Software Foundation, Inc.
5cc40a58 NR	2
	3	c This program is free software; you can redistribute it and/or modify
	4	c it under the terms of the GNU General Public License as published by
e22f8b7c	5	c the Free Software Foundation; either version 3 of the License, or
5cc40a58	6	c (at your option) any later version.
e22f8b7c	7	c
5cc40a58 NR	8	c This program is distributed in the hope that it will be useful,
	9	c but WITHOUT ANY WARRANTY; without even the implied warranty of
	10	c MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	11	c GNU General Public License for more details.
e22f8b7c	12	c
5cc40a58	13	c You should have received a copy of the GNU General Public License
e22f8b7c	14	c along with this program. If not, see <http://www.gnu.org/licenses/>.
5cc40a58 NR	15
	16	INTEGER array(1:2,-1:1)
	17	DATA array/11,21,12,22,13,23/
	18	CONTINUE
	19	STOP
	20	END