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>. 6program bug 7 implicit none 8 character*30 :: strg 9 logical l 10 l = .true. 11 strg = "false" 12 read (strg,*) l 13 if (l) STOP 1 14 strg = "true" 15 read (strg,*) l 16 if (.not.l) STOP 2 17 end 18 19