This is the mail archive of the
fortran@gcc.gnu.org
mailing list for the GNU Fortran project.
Re: Some experiences with "CASE"
Thanks a lot for your comments!
Regarding my first point: if you believe that a case can be made for the thinsg as they are, I see also advantages, though I would have rather expected a warning...
I'm sorry I made such a misleading example for my second point... (see second try). I take it that there is no special provision for extented ASCII characters in the standard, i.e.: this is a bug, right?
Thanks!
Philippe
PS: a better example (I hope!)
!
PROGRAM Test
!
CHARACTER ( LEN = 1 ) :: Letter
!
Letter = "c"
SELECT CASE ( Letter )
CASE ( "c", "ç" )
WRITE ( 6, "(A)" ) "Expected"
CASE DEFAULT
WRITE ( 6, "(A)" ) "Surprising"
END SELECT
!
END PROGRAM Test
!
PPS: so this lands in the default!