public inbox for gcc-bugs@sourceware.org
help / color / mirror / Atom feed
* [Bug fortran/37614]  New: Change position of padding for aligned COMMONs
@ 2008-09-22 13:29 burnus at gcc dot gnu dot org
  2008-10-25  8:28 ` [Bug fortran/37614] " tkoenig at gcc dot gnu dot org
                   ` (4 more replies)
  0 siblings, 5 replies; 6+ messages in thread
From: burnus at gcc dot gnu dot org @ 2008-09-22 13:29 UTC (permalink / raw)
  To: gcc-bugs

Follow up to PR 37486.
see also http://gcc.gnu.org/ml/fortran/2008-09/msg00366.html

The following program should print "5" but it prints "0" with default options
in gfortran. The problem is that in the program, the common object is padded as
   <4bytes padding> + i + r8
and then in the subroutine, only the first 4 bytes are read and assigned to the
local variable "i".

The program is valid as "Named common blocks of the same name shall be of the
same size in all scoping units of a program in which they appear, but blank
common blocks may be of different sizes."

As tests with NAG f95, Portland pgf95 and Pathscale pathf95 show, these
compilers use
  i + <4bytes padding> + r8
which allows this program to run correctly without sacrificing the alignment. 

(ifort, sunf95 and g95 - and "gfortran -fno-align-commons" work as no padding
is added.)

There are still used but not standard conform versions which fail (cf. examples
in PR 37486) but for those, gfortran has -fno-align-commons.


Test program:
----------------------------------------
subroutine one()
  integer :: i, j
  common i
  print *, i ! shall print "5", in gfortran it is "0"
!
! Testing alternative (invalid standard Fortran):
!  common i,j
!  print *, i,j
end subroutine one

program test
  integer :: i
  real*8 r8
  common i, r8
  i = 5
  r8 = 123457891234d88
  call one()
end program test
----------------------------------------

If one enables the "common  i, j" and runs the program with several compilers,
details about their implementation is revealed:

- gfortran and g77 print "0 5"
- ifort, sunf95 and g95 print "5 1267487353" (= gfortran -fno-align-commons)
- pathscale, pgi, and NAG f95 print "5 0" << expected result when PR is fixed


-- 
           Summary: Change position of padding for aligned COMMONs
           Product: gcc
           Version: 4.4.0
            Status: UNCONFIRMED
          Keywords: wrong-code
          Severity: normal
          Priority: P3
         Component: fortran
        AssignedTo: unassigned at gcc dot gnu dot org
        ReportedBy: burnus at gcc dot gnu dot org


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


^ permalink raw reply	[flat|nested] 6+ messages in thread
end of thread, other threads:[~2009-04-04 16:48 UTC | newest]

Thread overview: 6+ messages (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2008-09-22 13:29 [Bug fortran/37614] New: Change position of padding for aligned COMMONs burnus at gcc dot gnu dot org
2008-10-25  8:28 ` [Bug fortran/37614] " tkoenig at gcc dot gnu dot org
2009-01-15  9:19 ` pault at gcc dot gnu dot org
2009-01-27 20:53 ` [Bug fortran/37614] [Fix pending] " pault at gcc dot gnu dot org
2009-04-04 16:42 ` [Bug fortran/37614] " pault at gcc dot gnu dot org
2009-04-04 16:48 ` pault at gcc dot gnu dot org

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).