blob: d70845940098d90a590e589d390610e52ff68c92 (
plain)
1
2
3
4
5
6
7
8
9
|
! { dg-do run }
! { dg-options "-ffrontend-optimize" }
program main
character (len=:), allocatable :: a
a = 'a'
if (len(a) /= 1) STOP 1
a = ' '
if (len(a) /= 2) STOP 2
end program main
|