1 2 3 4 5 6 7 8 9 10 11 12 13
! { dg-do compile } ! { dg-options "-std=f95" } ! ! PR fortran/52101 ! ! Contributed by John Harper ! program foo character*10 s ! { dg-warning "Obsolescent feature: Old-style character length" } character t*10 ! Still okay s = 'foo' t = 'bar' end program foo