diff options
Diffstat (limited to 'gdb/testsuite/gdb.fortran/subarray.f')
-rw-r--r-- | gdb/testsuite/gdb.fortran/subarray.f | 36 |
1 files changed, 36 insertions, 0 deletions
diff --git a/gdb/testsuite/gdb.fortran/subarray.f b/gdb/testsuite/gdb.fortran/subarray.f new file mode 100644 index 0000000..ee91c9a --- /dev/null +++ b/gdb/testsuite/gdb.fortran/subarray.f @@ -0,0 +1,36 @@ +c Copyright 2005 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 2 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, write to the Free Software +c Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. + +c Ihis file is the Fortran source file for subarray.exp. It was written +c by Wu Zhou. (woodzltc@cn.ibm.com) + + PROGRAM subarray + + character *7 str + integer array(7) + +c Initialize character array "str" and integer array "array". + str = 'abcdefg' + do i = 1, 7 + array(i) = i + end do + + write (*, *) str(2:4) + write (*, *) str(:3) + write (*, *) str(5:) + write (*, *) str(:) + + END PROGRAM |