PR libgfortran/26554
* gfortran.dg/read_logical.f90: New test.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@111739
138bc75d-0d04-0410-961f-
82ee72b054a4
+2006-03-05 Jerry DeLisle <jvdelisle@gcc.gnu.org>
+
+ PR libgfortran/26554
+ * gfortran.dg/read_logical.f90: New test.
+
2006-03-04 Laurent GUERBY <laurent@guerby.net>
* ada/acats/norun.lst: cdd2a03 now passes.
--- /dev/null
+! { dg-do run }
+! 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
+
\ No newline at end of file