| ! { 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 | |