diff options
| author | Janus Weil <janus@gcc.gnu.org> | 2010-08-11 12:49:56 +0200 |
|---|---|---|
| committer | Janus Weil <janus@gcc.gnu.org> | 2010-08-11 12:49:56 +0200 |
| commit | c4aa95f8853f37cdc1d4d19ac4faa5d2dbbf2eb5 (patch) | |
| tree | c1e1aa24e171ab1a431b8e48c0670b792d0c34b5 /gcc/fortran/intrinsic.h | |
| parent | 481e1176d7614dcd519e50c488a155312280913e (diff) | |
| download | gcc-c4aa95f8853f37cdc1d4d19ac4faa5d2dbbf2eb5.zip gcc-c4aa95f8853f37cdc1d4d19ac4faa5d2dbbf2eb5.tar.gz gcc-c4aa95f8853f37cdc1d4d19ac4faa5d2dbbf2eb5.tar.bz2 | |
re PR fortran/44595 (INTENT of arguments to intrinsic procedures not checked)
2010-08-11 Janus Weil <janus@gcc.gnu.org>
PR fortran/44595
* intrinsic.c (gfc_current_intrinsic_arg): Change type from 'char' to
'gfc_intrinsic_arg'.
(check_arglist,check_specific): Add reference to 'name' field.
(init_arglist): Remove reference to 'name' field.
* intrinsic.h (gfc_current_intrinsic_arg): Modify prototype.
* check.c (variable_check): Reverse order of checks. Respect intent of
formal arg.
(int_or_proc_check): New function.
(coarray_check): New function.
(allocatable_check): New function.
(gfc_check_allocated,gfc_check_move_alloc): Use 'allocatable_check'.
(gfc_check_complex): Use 'int_or_real_check'.
(gfc_check_lcobound,gfc_check_image_index,gfc_check_this_image,
gfc_check_ucobound): Use 'coarray_check'.
(gfc_check_pack): Use 'real_or_complex_check'.
(gfc_check_alarm_sub,gfc_check_signal,gfc_check_signal_sub): Use
'int_or_proc_check'.
(scalar_check,type_check,numeric_check,int_or_real_check,
real_or_complex_check,kind_check,double_check,logical_array_check,
array_check,same_type_check,rank_check,nonoptional_check,
kind_value_check,gfc_check_a_p,gfc_check_associated,gfc_check_cmplx,
gfc_check_cshift,gfc_check_dcmplx,gfc_check_dot_product,gfc_check_dprod,
gfc_check_eoshift,gfc_check_fn_rc2008,gfc_check_index,gfc_check_kind,
gfc_check_matmul,gfc_check_minloc_maxloc,check_reduction,gfc_check_null,
gfc_check_present,gfc_check_reshape,gfc_check_same_type_as,
gfc_check_spread,gfc_check_unpack,gfc_check_random_seed,
gfc_check_getarg,gfc_check_and,gfc_check_storage_size): Add reference
to 'name' field.
2010-08-11 Janus Weil <janus@gcc.gnu.org>
Steve Kargl <kargl@gcc.gnu.org>
PR fortran/44595
* gfortran.dg/move_alloc_3.f90: New.
* gfortran.dg/random_seed_2.f90: New.
Co-Authored-By: Steve Kargl <kargl@gcc.gnu.org>
From-SVN: r163096
Diffstat (limited to 'gcc/fortran/intrinsic.h')
| -rw-r--r-- | gcc/fortran/intrinsic.h | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/intrinsic.h b/gcc/fortran/intrinsic.h index f5da7a0..23272a8 100644 --- a/gcc/fortran/intrinsic.h +++ b/gcc/fortran/intrinsic.h @@ -573,5 +573,5 @@ void gfc_resolve_unlink_sub (gfc_code *); #define MAX_INTRINSIC_ARGS 5 extern const char *gfc_current_intrinsic; -extern const char *gfc_current_intrinsic_arg[MAX_INTRINSIC_ARGS]; +extern gfc_intrinsic_arg *gfc_current_intrinsic_arg[MAX_INTRINSIC_ARGS]; extern locus *gfc_current_intrinsic_where; |