[Bug fortran/33339] GFORTRAN OPTIMIZATION ERROR ABOVE -O0 FOR MPICH2 TEST F90_RMA/BASEATTRWINF90.F90

["longb at cray dot com" <gcc-bugzilla at gcc dot gnu dot org>]

------- Comment #2 from longb at cray dot com  2007-09-08 01:03 -------
Subject: Re:  GFORTRAN OPTIMIZATION ERROR ABOVE -O0 FOR
 MPICH2 TEST F90_RMA/BASEATTRWINF90.F90



kargl at gcc dot gnu dot org wrote:
> ------- Comment #1 from kargl at gcc dot gnu dot org  2007-09-07 21:03 -------
> (In reply to comment #0)
>
>   
>>> ftn -o x -O2 bug2867.f90
>>> aprun -n 1 ./x
>>>       
>>  Got incorrect value for WIN_SIZE (      140733193389056 , should be
>>
>> 1024 )
>>  Got wrong value for WIN_DISP_UNIT (      140733193388036 , should be
>>     
>
> What is ftn?  On my system, when I build MPICH2 I get mpf90.
>   

ftn is a script that allows the user to see a common interface for all 
the compilers we  document.  Which compiler is used is controlled by the 
module facility. Library sets are selected based on the compiler and OS 
combinations.  The same command is used for both serial and parallel 
programs.

Cheers,
Bill

> I added an else clause for printing the right values
>
> node10:kargl[227] ../mpich2/bin/mpif90 -o z -O2 long.f90
> node10:kargl[228] ./z
>  Got right value for WIN_DISP_UNIT ( 4 , should be 4 )
> node10:kargl[229] ../mpich2/bin/mpiexec -machinefile mf1 -n 1 ./z
>  Got right value for WIN_DISP_UNIT ( 4 , should be 4 )
>
> node10:kargl[231] ../mpich2/bin/mpif90 --version
> GNU Fortran (GCC) 4.2.1 20070523 (prerelease)
>
>
>   


-- 


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=33339