gcc/testsuite/gfortran.dg/read_logical.f90

   1 ! { dg-do run }
   2 ! PR 26554 : Test logical read from string. Test case derived from PR.
   3 ! Submitted by Jerry DeLisle <jvdelisle@verizon.net>.
   4 program bug
   5   implicit none
   6   character*30 :: strg
   7   logical l
   8   l = .true.
   9   strg = "false"
  10   read (strg,*) l
  11   if (l) call abort()
  12   strg = "true"
  13   read (strg,*) l
  14   if (.not.l) call abort()
  15   end
  16