?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
Update ChangeLog and version files for release
[official-gcc.git] / gcc / testsuite / gfortran.dg / string_assign_2.f90
blobf3cfa45e0de575aa0fc9d8a339dae9f4c0e7f2c5
1 ! { dg-do run }
2 ! { dg-options "-ffrontend-optimize" }
3 program main
4 character (len=:), allocatable :: a
5 a = 'a'
6 if (len(a) /= 1) call abort
7 a = ' '
8 if (len(a) /= 2) call abort
9 end program main
Mirror of the offical gcc git repository hosted at gcc.gnu.org