gcc/testsuite/gfortran.dg/read_logical.f90

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