[Patch, Fortran] SELECT TYPE via ASSOCIATE

[Salvatore Filippone]

Il giorno gio, 26/08/2010 alle 18.33 +0200, Tobias Burnus ha scritto:
> On 08/26/2010 05:32 PM, Salvatore Filippone wrote:
> > It's a variation of the original test case, and produces:
> > [sfilippo@donald bug20]$ ./bug20_dx
> >   Dynamic type on entry: XBASE
> >   Not implemented yet
> >   Dynamic type CLASS DEFAULT clause: DBASE
> >
> > which is pure nonsense :-)
> 
> What's the expected output? I get the same output with another compiler 
> (but no crash) while all my other compilers do not compile the program 
> or crash earlier. Seemingly, it works with one of your compilers ...
> 
> Tobias
> 
..e.g.: XLF 13.1 

[snfilip@josquin GNUBUILD]$ /opt/ibmcmp/xlf/13.1/bin/xlf2003 -o bug20_dx
bug20_dx.f90 
** base_mat_mod   === End of Compilation 1 ===
** d_base_mat_mod   === End of Compilation 2 ===
** d_mat_mod   === End of Compilation 3 ===
** bug20   === End of Compilation 4 ===
1501-510  Compilation successful for file bug20_dx.f90.
[snfilip@josquin GNUBUILD]$ ./bug20_dx 
 Dynamic type on entry: XBASE   
 Not implemented yet 
 Dynamic type CLASS DEFAULT clause: XBASE