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