------- Comment #3 from burnus at gcc dot gnu dot org 2007-04-18 10:21 ------- (In reply to comment #1) > <snip> > if (any (Up ("AbCdEfGhIjKlM") .ne. (/"ABCDEFGHIJKLM"/))) call abort () > contains > Character (len=20) Function Up (string) > </snip> > > It looks like it's comparing a CHARACTER*20 (= Up's result) to an array of > characters (= the array constructor).
I think this is not allowed in Fortran 95 mode, but I'm not 100% sure about Fortran 2003; I think it is also not allowed, but one has to check the standard (cf. PR30940). -- burnus at gcc dot gnu dot org changed: What |Removed |Added ---------------------------------------------------------------------------- CC| |burnus at gcc dot gnu dot | |org http://gcc.gnu.org/bugzilla/show_bug.cgi?id=31608