From 2124d608c637046fa39d48cef129c6bd45f68812 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Tobias=20Schl=C3=BCter?= Date: Fri, 24 Sep 2004 18:51:25 +0200 Subject: [PATCH] intrinsic.h (gfc_resolve_getcwd): Update prototype. * intrinsic.h (gfc_resolve_getcwd): Update prototype. * iresolve.c (gfc_resolve_getcwd): Add second argument to function. From-SVN: r88055 --- gcc/fortran/intrinsic.h | 2 +- gcc/fortran/iresolve.c | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/gcc/fortran/intrinsic.h b/gcc/fortran/intrinsic.h index f1b11b04264..839f750791b 100644 --- a/gcc/fortran/intrinsic.h +++ b/gcc/fortran/intrinsic.h @@ -257,7 +257,7 @@ void gfc_resolve_exponent (gfc_expr *, gfc_expr *); void gfc_resolve_floor (gfc_expr *, gfc_expr *, gfc_expr *); void gfc_resolve_fraction (gfc_expr *, gfc_expr *); void gfc_resolve_g77_math1 (gfc_expr *, gfc_expr *); -void gfc_resolve_getcwd (gfc_expr *); +void gfc_resolve_getcwd (gfc_expr *, gfc_expr *); void gfc_resolve_getgid (gfc_expr *); void gfc_resolve_getpid (gfc_expr *); void gfc_resolve_getuid (gfc_expr *); diff --git a/gcc/fortran/iresolve.c b/gcc/fortran/iresolve.c index ed8bc569bcf..201b3f962e2 100644 --- a/gcc/fortran/iresolve.c +++ b/gcc/fortran/iresolve.c @@ -572,7 +572,7 @@ gfc_resolve_g77_math1 (gfc_expr * f, gfc_expr * x) void -gfc_resolve_getcwd (gfc_expr * f) +gfc_resolve_getcwd (gfc_expr * f, gfc_expr * n ATTRIBUTE_UNUSED) { f->ts.type = BT_INTEGER; f->ts.kind = 4; -- 2.30.2