diff options
| author | Tobias Schlüter <tobi@gcc.gnu.org> | 2004-09-24 18:51:25 +0200 |
|---|---|---|
| committer | Tobias Schlüter <tobi@gcc.gnu.org> | 2004-09-24 18:51:25 +0200 |
| commit | 2124d608c637046fa39d48cef129c6bd45f68812 (patch) | |
| tree | 818b590776dd3a2ca045d976acec868f5d4bfd09 /gcc/fortran/iresolve.c | |
| parent | c03c696f6b37560041de8cc6a2b5c3310be4c7ef (diff) | |
| download | gcc-2124d608c637046fa39d48cef129c6bd45f68812.zip gcc-2124d608c637046fa39d48cef129c6bd45f68812.tar.gz gcc-2124d608c637046fa39d48cef129c6bd45f68812.tar.bz2 | |
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
Diffstat (limited to 'gcc/fortran/iresolve.c')
| -rw-r--r-- | gcc/fortran/iresolve.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/iresolve.c b/gcc/fortran/iresolve.c index ed8bc56..201b3f9 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; |