From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 24319 invoked by alias); 1 Apr 2006 17:10:31 -0000 Received: (qmail 24213 invoked by uid 48); 1 Apr 2006 17:10:27 -0000 Date: Sat, 01 Apr 2006 17:10:00 -0000 Message-ID: <20060401171027.24212.qmail@sourceware.org> X-Bugzilla-Reason: CC References: Subject: [Bug fortran/17298] gfortran ICE: Not Implemented: Scalarization of non-elemental intrinsic: __transfer1 In-Reply-To: Reply-To: gcc-bugzilla@gcc.gnu.org To: gcc-bugs@gcc.gnu.org From: "ebotcazou 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: 2006-04/txt/msg00030.txt.bz2 List-Id: ------- Comment #13 from ebotcazou at gcc dot gnu dot org 2006-04-01 17:10 ------- Is transfer_array_intrinsic_1.f90 portable to big-endian? It fails on SPARC. Reduced testcase: integer(4) :: y(4) character(4) :: ch(4) y = (/(i + ishft (i + 1, 8) + ishft (i + 2, 16) & + ishft (i + 3, 24), i = 65, 80 , 4)/) ch = "wxyz" ch = transfer (y(2:4:2), ch) if (any (ch .ne. (/"EFGH","MNOP","wxyz","wxyz"/))) call abort () end Breakpoint 1, MAIN__ () at transfer_array_intrinsic_1.f90:8 8 if (any (ch .ne. (/"EFGH","MNOP","wxyz","wxyz"/))) call abort () (gdb) p ch $13 = (( 72 'H', 71 'G', 70 'F', 69 'E') ( 80 'P', 79 'O', 78 'N', 77 'M') ( 119 'w', 120 'x', 121 'y', 122 'z') ( 119 'w', 120 'x', 121 'y', 122 'z') ) -- ebotcazou at gcc dot gnu dot org changed: What |Removed |Added ---------------------------------------------------------------------------- CC| |ebotcazou at gcc dot gnu dot | |org Status|RESOLVED |REOPENED Resolution|FIXED | http://gcc.gnu.org/bugzilla/show_bug.cgi?id=17298