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

re PR fortran/18918 (Eventually support Fortran 2008's coarrays [co-arrays])

Browse Source 
2011-05-29  Tobias Burnus  <burnus@net-b.de>

        PR fortran/18918
        * interface.c (compare_parameter): Add check for passing coarray
        to allocatable noncoarray dummy.

2011-05-29  Tobias Burnus  <burnus@net-b.de>

        PR fortran/18918
        * gfortran.dg/coarray_24.f90: New.

From-SVN: r174411
This commit is contained in:
Tobias Burnus 2011-05-29 20:17:40 +02:00 committed by Tobias Burnus
parent 8a5c4899e8
commit 427180d243
4 changed files with 55 additions and 0 deletions
gcc
fortran
ChangeLoginterface.c
testsuite
ChangeLog
gfortran.dg
coarray_24.f90

6
gcc/fortran/ChangeLog

@ -1,3 +1,9 @@
2011-05-29 Tobias Burnus <burnus@net-b.de>
PR fortran/18918
* interface.c (compare_parameter): Add check for passing coarray
to allocatable noncoarray dummy.
2011-05-29 Tobias Burnus <burnus@net-b.de>
Richard Guenther <rguenther@suse.de>

18
gcc/fortran/interface.c

@ -1645,6 +1645,24 @@ compare_parameter (gfc_symbol *formal, gfc_expr *actual,
return 0;
}
if (formal->attr.allocatable && !formal->attr.codimension
&& gfc_expr_attr (actual).codimension)
{
if (formal->attr.intent == INTENT_OUT)
{
if (where)
gfc_error ("Passing coarray at %L to allocatable, noncoarray, "
"INTENT(OUT) dummy argument '%s'", &actual->where,
formal->name);
return 0;
}
else if (gfc_option.warn_surprising && where
&& formal->attr.intent != INTENT_IN)
gfc_warning ("Passing coarray at %L to allocatable, noncoarray dummy "
"argument '%s', which is invalid if the allocation status"
" is modified", &actual->where, formal->name);
}
if (symbol_rank (formal) == actual->rank)
return 1;

5
gcc/testsuite/ChangeLog

@ -1,3 +1,8 @@
2011-05-29 Tobias Burnus <burnus@net-b.de>
PR fortran/18918
* gfortran.dg/coarray_24.f90: New.
2011-05-29 Tobias Burnus <burnus@net-b.de>
PR fortran/18918

26
gcc/testsuite/gfortran.dg/coarray_24.f90 Normal file

@ -0,0 +1,26 @@
! { dg-do compile }
! { dg-options "-fcoarray=single -Wall" }
!
! This program is perfectly valid; however, passing an (allocatable) coarray
! as actual argument to a non-coarray allocatable dummy is doubtful as
! reallocation is not allowed. Thus, an intent(out) dummy should be always
! wrong.
!
integer, allocatable :: myCaf(:)[:]
allocate(myCaf(1)[*])
call doubtful_valid(myCaf) ! { dg-warning "to allocatable, noncoarray dummy" }
call invalid(myCaf) ! { dg-error "to allocatable, noncoarray, INTENT.OUT. dummy" }
contains
subroutine doubtful_valid(x)
integer, allocatable :: x(:)
! Valid as x's allocation status is not touched.
x(1) = 7
end subroutine doubtful_valid
subroutine invalid(y)
integer, allocatable, intent(out) :: y(:)
allocate (y(1))
end subroutine invalid
end