------- Comment #32 from pault at gcc dot gnu dot org 2007-10-12 17:32 ------- (In reply to comment #31) > Works as advertised without regression so far (PPC Darwin, 32 bit mode close > to > complete), but for the codelets in #30. > > I wonder if the code in #28 is valid: the line(s) > > merge(transfer(string,"x",len(string)), string, .true.) > > does not seems to obey: > > 13.7.75 MERGE (TSOURCE, FSOURCE, MASK) > > ... > FSOURCE shall be of the same type and type parameters as TSOURCE. > > If I am not mistaken transfer(string,"x",len(string)) is an array of > characters > of rank one, size len(string), of character(1), while string is a scalar > character(20) (13.7.121 TRANSFER (SOURCE, MOLD [, SIZE]) ... Case (iii): If > SIZE is present, the result is an array of rank one and size SIZE.). > > The patched gfortran, Intel, and g95 accept the code and give the same result; > xlf accept the code, but gives some garbage in the first and fourth lines of > the output; Portland Group compiler rejects the code with: > > PGF90-S-0074-Illegal number or type of arguments to merge - keyword argument > fsource (pr31608_4.f90: 16) > > Should I fill another PR? >
Yes, please It's an easy fix but let's do one thing at a time:-) Paul -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=31608
