1! { dg-do run } 2! { dg-options "-std=legacy" } 3! 4! Test that getting a character from a 5! string data works. 6 7CHARACTER*10 INTSTR 8CHARACTER C1 9DATA INTSTR / '0123456789' / 10 11C1 = INTSTR(1:1) 12if(C1 .ne. '0') call abort() 13 14end 15