diff options
Diffstat (limited to 'gcc-4.8/gcc/testsuite/gfortran.dg/read_logical.f90')
| -rw-r--r-- | gcc-4.8/gcc/testsuite/gfortran.dg/read_logical.f90 | 18 |
1 files changed, 0 insertions, 18 deletions
diff --git a/gcc-4.8/gcc/testsuite/gfortran.dg/read_logical.f90 b/gcc-4.8/gcc/testsuite/gfortran.dg/read_logical.f90 deleted file mode 100644 index 7b7ba8c3a..000000000 --- a/gcc-4.8/gcc/testsuite/gfortran.dg/read_logical.f90 +++ /dev/null @@ -1,18 +0,0 @@ -! { dg-do run } -! { dg-options "-std=legacy" } -! -! PR 26554 : Test logical read from string. Test case derived from PR. -! Submitted by Jerry DeLisle <jvdelisle@verizon.net>. -program bug - implicit none - character*30 :: strg - logical l - l = .true. - strg = "false" - read (strg,*) l - if (l) call abort() - strg = "true" - read (strg,*) l - if (.not.l) call abort() - end - |