From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 27328 invoked by alias); 26 Nov 2005 18:54:34 -0000 Received: (qmail 27317 invoked by uid 48); 26 Nov 2005 18:54:32 -0000 Date: Sat, 26 Nov 2005 18:54:00 -0000 Message-ID: <20051126185432.27316.qmail@sourceware.org> X-Bugzilla-Reason: CC References: Subject: [Bug fortran/25046] MASK and ARRAY arguments of PRODUCT must have conformant shapes In-Reply-To: Reply-To: gcc-bugzilla@gcc.gnu.org To: gcc-bugs@gcc.gnu.org From: "fxcoudert at gcc dot gnu dot org" Mailing-List: contact gcc-bugs-help@gcc.gnu.org; run by ezmlm Precedence: bulk List-Archive: List-Post: List-Help: Sender: gcc-bugs-owner@gcc.gnu.org X-SW-Source: 2005-11/txt/msg03636.txt.bz2 List-Id: ------- Comment #1 from fxcoudert at gcc dot gnu dot org 2005-11-26 18:54 ------- ## gfortran ## foo.f90: In function ‘s1’: foo.f90:2: internal compiler error: Segmentation fault ## g95 ## In file foo.f90:5 write(6,*) PRODUCT(A,B) 1 Error: 'mask' argument of 'product' intrinsic at (1) must be conformable with ARRAY parameter ## Intel ## fortcom: Error: foo.f90, line 5: The shapes of the arguments do not conform. [PRODUCT] write(6,*) PRODUCT(A,B) -----------------------^ fortcom: Warning: foo.f90, line 2: This name has not been given an explicit type. [N] SUBROUTINE S1(N) --------------^ fortcom: Info: foo.f90, line 2: This variable has not been used. [N] SUBROUTINE S1(N) --------------^ compilation aborted for foo.f90 (code 1) ## Sun ## write(6,*) PRODUCT(A,B) ^ "foo.f90", Line = 5, Column = 14: ERROR: No specific intrinsic exists for the intrinsic call "PRODUCT". -- fxcoudert at gcc dot gnu dot org changed: What |Removed |Added ---------------------------------------------------------------------------- Status|UNCONFIRMED |NEW Ever Confirmed|0 |1 Keywords| |ice-on-invalid-code Last reconfirmed|0000-00-00 00:00:00 |2005-11-26 18:54:32 date| | Summary|better diagnostic needed |MASK and ARRAY arguments of | |PRODUCT must have conformant | |shapes http://gcc.gnu.org/bugzilla/show_bug.cgi?id=25046