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