From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 10794 invoked by alias); 24 Jul 2010 11:11:00 -0000 Received: (qmail 10725 invoked by uid 48); 24 Jul 2010 11:10:46 -0000 Date: Sat, 24 Jul 2010 11:11:00 -0000 Message-ID: <20100724111046.10724.qmail@sourceware.org> X-Bugzilla-Reason: CC References: Subject: [Bug fortran/40011] Problems with -fwhole-file In-Reply-To: Reply-To: gcc-bugzilla@gcc.gnu.org To: gcc-bugs@gcc.gnu.org From: "jv244 at cam dot ac dot uk" Mailing-List: contact gcc-bugs-help@gcc.gnu.org; run by ezmlm Precedence: bulk List-Id: List-Archive: List-Post: List-Help: Sender: gcc-bugs-owner@gcc.gnu.org X-SW-Source: 2010-07/txt/msg02626.txt.bz2 ------- Comment #62 from jv244 at cam dot ac dot uk 2010-07-24 11:10 ------- a testcase... > cat bug.f90 SUBROUTINE fft_3d ( fft_type, fft_in_place, fsign, scale, n, zin, zout ) CALL fftsg3d ( fft_in_place, fsign, scale, n, zin, zout ) END SUBROUTINE fft_3d SUBROUTINE fft_1dm ( fft_type, fsign, trans, n, m, zin, zout, scale ) END SUBROUTINE fft_1dm SUBROUTINE fftsg3d ( fft_in_place, fsign, scale, n, zin, zout ) INTEGER, PARAMETER :: dp = SELECTED_REAL_KIND ( 14, 200 ) CALL mltfftsg ( 'N', 'T', zin, nx, ny*nz, xf, ny*nz, nx, nx, & ny*nz, fsign, 1.0_dp ) END SUBROUTINE fftsg3d SUBROUTINE mltfftsg ( transa, transb, a, ldax, lday, b, ldbx, ldby, n, m, isign, scale ) END SUBROUTINE mltfftsg MODULE fft_tools CONTAINS SUBROUTINE fft3d_s ( fsign, n, zin, zout, scale, status, debug ) CALL fft_3d ( fft_type, fft_in_place, sign, norm, n, zin, zoptr ) END SUBROUTINE fft3d_s SUBROUTINE fft3d_ps ( fsign, n, cin, gin, gs_group, rs_group, yzp, & nyzray, bo, scale, status, debug ) CALL fft_1dm ( fft_type, sign, .TRUE., n(3), mx1*my1, pbuf, qbuf, norm ) END SUBROUTINE fft3d_ps END MODULE fft_tools END links with: gfortran-trunk -fno-whole-file bug.f90 fails with: gfortran-trunk -fwhole-file bug.f90 some of the argument mismatches are a result of the reduction, but not all of them, so I guess that is key. -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=40011