mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-05 22:11:30 +08:00
Code Issues Packages Projects Releases Wiki Activity

re PR fortran/34262 (MVBITS does not work for arrays)

Browse Source 
2007-11-29  Tobias Burnus  <burnus@net-b.de>

        PR fortran/34262
        * intrinsic.c (gfc_get_intrinsic_sub_symbol): Add comment.
        (gfc_intrinsic_sub_interface): Copy elemental state if needed.
        * iresolve.c (gfc_resolve_mvbits): Mark procedure as elemental.

2007-11-29  Tobias Burnus  <burnus@net-b.de>

        PR fortran/34262
        * gfortran.dg/mvbits_3.f90: New.

From-SVN: r130513
This commit is contained in:
Tobias Burnus 2007-11-29 15:56:48 +01:00 committed by Tobias Burnus
parent a6dcb051e9
commit 42a8c358ce
5 changed files with 51 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
gcc/fortran/ChangeLog
View File

@ -1,3 +1,10 @@
2007-11-29 Tobias Burnus <burnus@net-b.de>
PR fortran/34262
* intrinsic.c (gfc_get_intrinsic_sub_symbol): Add comment.
(gfc_intrinsic_sub_interface): Copy elemental state if needed.
* iresolve.c (gfc_resolve_mvbits): Mark procedure as elemental.
2007-11-28 Jakub Jelinek <jakub@redhat.com>
* trans-expr.c (gfc_trans_string_copy): Convert both dest and

8
gcc/fortran/intrinsic.c
View File

@ -96,7 +96,8 @@ gfc_type_letter (bt type)
}
/* Get a symbol for a resolved name. */
/* Get a symbol for a resolved name. Note, if needed be, the elemental
attribute has be added afterwards. */
gfc_symbol *
gfc_get_intrinsic_sub_symbol (const char *name)
@ -3501,7 +3502,10 @@ gfc_intrinsic_sub_interface (gfc_code *c, int error_flag)
if (isym->resolve.s1 != NULL)
isym->resolve.s1 (c);
else
c->resolved_sym = gfc_get_intrinsic_sub_symbol (isym->lib_name);
{
c->resolved_sym = gfc_get_intrinsic_sub_symbol (isym->lib_name);
c->resolved_sym->attr.elemental = isym->elemental;
}
if (gfc_pure (NULL) && !isym->elemental)
{

2
gcc/fortran/iresolve.c
View File

@ -2581,6 +2581,8 @@ gfc_resolve_mvbits (gfc_code *c)
name = gfc_get_string (PREFIX ("mvbits_i%d"),
c->ext.actual->expr->ts.kind);
c->resolved_sym = gfc_get_intrinsic_sub_symbol (name);
/* Mark as elemental subroutine as this does not happen automatically. */
c->resolved_sym->attr.elemental = 1;
}

5
gcc/testsuite/ChangeLog
View File

@ -1,3 +1,8 @@
2007-11-29 Tobias Burnus <burnus@net-b.de>
PR fortran/34262
* gfortran.dg/mvbits_3.f90: New.
2007-11-28 Bob Wilson <bob.wilson@acm.org>
* lib/target-supports.exp (check_effective_target_mips_soft_float):

31
gcc/testsuite/gfortran.dg/mvbits_3.f90 Normal file
View File

@ -0,0 +1,31 @@
! { dg-do run }
!
! PR fortran/
!
! The trans-*.c part of the compiler did no know
! that mvbits is an elemental function.
!
! Test case contributed by P.H. Lundow.
!
program main
implicit none
integer :: a( 2 ), b( 2 )
integer :: x, y
a = 1
b = 0
x = 1
y = 0
call mvbits (a, 0, 1, b, 1)
call mvbits (x, 0, 1, y, 1)
! write (*, *) 'a: ', a
! write (*, *) 'x: ', x
! write (*, *)
! write (*, *) 'b: ', b
! write (*, *) 'y: ', y
! write (*, *)
if ( any (b /= y) ) call abort()
end program main