$ cat foo.f90 program main character(len=3) :: a a = 'yes' print *,'yes' == a end program main $ gfortran -fdump-tree-optimized -O3 -S foo.f90 $ grep compare_string foo.s call _gfortran_compare_string
-- Summary: eliminate constant string comparisons Product: gcc Version: 4.4.0 Status: UNCONFIRMED Severity: enhancement Priority: P3 Component: fortran AssignedTo: unassigned at gcc dot gnu dot org ReportedBy: tkoenig at gcc dot gnu dot org OtherBugsDependingO 19276,36854 nThis: http://gcc.gnu.org/bugzilla/show_bug.cgi?id=38592