From ed8315d5fcd7a86afc791a2643ef329aa599b2f5 Mon Sep 17 00:00:00 2001 From: Francois-Xavier Coudert Date: Wed, 29 Aug 2007 15:22:55 +0000 Subject: re PR libfortran/32989 (GETARG intrinsic) PR fortran/32989 * iresolve.c (gfc_resolve_getarg): Handle non-default integer kinds. * check.c (gfc_check_getarg): New function * intrinsic.h: Add prototype for gfc_check_getarg. * intrinsic.c (add_subroutines): Add reference to gfc_check_getarg. * intrinsic.texi (GETARG): Adjust documentation. * gfortran.fortran-torture/execute/getarg_1.f90: Add check for non-default integer kind arguments. From-SVN: r127905 --- gcc/fortran/intrinsic.h | 1 + 1 file changed, 1 insertion(+) (limited to 'gcc/fortran/intrinsic.h') diff --git a/gcc/fortran/intrinsic.h b/gcc/fortran/intrinsic.h index e284a6c..1d2c6c1 100644 --- a/gcc/fortran/intrinsic.h +++ b/gcc/fortran/intrinsic.h @@ -154,6 +154,7 @@ try gfc_check_flush (gfc_expr *); try gfc_check_free (gfc_expr *); try gfc_check_fstat_sub (gfc_expr *, gfc_expr *, gfc_expr *); try gfc_check_gerror (gfc_expr *); +try gfc_check_getarg (gfc_expr *, gfc_expr *); try gfc_check_getlog (gfc_expr *); try gfc_check_move_alloc (gfc_expr *, gfc_expr *); try gfc_check_mvbits (gfc_expr *, gfc_expr *, gfc_expr *, gfc_expr *, -- cgit v1.1