OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

data_char_1.f90: Fix typo, add dg-do directive.

Browse Source 
* gfortran.dg/data_char_1.f90: Fix typo, add dg-do directive.
* gfortran.dg/direct_io_1.f90: Add dg-do directive.
* gfortran.dg/entry_1.f90: Fix typo, add dg-do directive.
* gfortran.dg/getenv_1.f90: Add dg-do directive.
* gfortran.dg/pr16597.f90, gfortran.dg/pr17143.f90,
gfortran.dg/pr17164.f90: Add missing dg-do directives.

From-SVN: r93994
This commit is contained in:
Tobias Schlüter 2005-01-20 23:48:56 +01:00 committed by Tobias Schlüter
parent 548414c6fb
commit 9d953276e1
8 changed files with 18 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,12 @@
2005-01-20 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de>
* gfortran.dg/data_char_1.f90: Fix typo, add dg-do directive.
* gfortran.dg/direct_io_1.f90: Add dg-do directive.
* gfortran.dg/entry_1.f90: Fix typo, add dg-do directive.
* gfortran.dg/getenv_1.f90: Add dg-do directive.
* gfortran.dg/pr16597.f90, gfortran.dg/pr17143.f90,
gfortran.dg/pr17164.f90: Add missing dg-do directives.
2005-01-20 Kazu Hirata <kazu@cs.umass.edu>
PR tree-optimization/15349

3
gcc/testsuite/gfortran.dg/data_char_1.f90
View File

@ -1,3 +1,4 @@
! { dg-do run }
! Test character variables in data statements
! Also substrings of cahracter variables.
! PR14976 PR16228
@ -8,5 +9,5 @@ program data_char_1
data b(:)(1:4), b(1)(5:5), b(2)(5:5) /'abcdefg', 'hi', 'j', 'k'/
if ((a(1) .ne. 'Hello') .or. (a(2) .ne. 'orld ')) call abort
if ((b(1) .ne. 'adcdl') .or. (b(2) .ne. 'hi l')) call abort
if ((b(1) .ne. 'abcdj') .or. (b(2) .ne. 'hi k')) call abort
end program

1
gcc/testsuite/gfortran.dg/direct_io_1.f90
View File

@ -1,3 +1,4 @@
! { dg-do run }
! PR 16908
! Segfaulted on second set of writes. We weren't handling partial records
! properly when calculating the file position.

3
gcc/testsuite/gfortran.dg/entry_1.f90
View File

@ -1,3 +1,4 @@
! { dg-do run }
! Test alternate entry points in a module procedure
! Also check that references to sibling entry points are resolved correctly.
module m
@ -11,7 +12,7 @@ end subroutine
subroutine test1
implicit none
call indidecta (foo)
call indirecta (foo)
call indirectb (bar)
end subroutine

2
gcc/testsuite/gfortran.dg/getenv_1.f90
View File

@ -1,4 +1,4 @@
! { dg do-run }
! { dg-do run }
! Test the getenv and get_environment_variable intrinsics.
! Ignore the return value because it's not supported/meaningful on all targets
program getenv_1

1
gcc/testsuite/gfortran.dg/pr16597.f90
View File

@ -1,3 +1,4 @@
! { dg-do run }
! pr 16597
! libgfortran
! reading a direct access record after it was written did

1
gcc/testsuite/gfortran.dg/pr17143.f90
View File

@ -1,3 +1,4 @@
! { dg-do run }
! pr17143
! does not print 2*63 correctly
character*25 l

1
gcc/testsuite/gfortran.dg/pr17164.f90
View File

@ -1,3 +1,4 @@
! { dg-do run }
! pr17164
! index aborts when substring is longer than string
implicit none