From a8c60d7fffb6bd4f3b483369c4b8ecc4a2c83f83 Mon Sep 17 00:00:00 2001 From: "Steven G. Kargl" Date: Wed, 15 Sep 2004 14:09:17 +0000 Subject: check.c (gfc_check_getcwd_sub): New function. 2004-09-15 Steven G. Kargl * check.c (gfc_check_getcwd_sub): New function. * gfortran.h (GFC_ISYM_GETCWD): New symbol. * intrinsic.c (add_functions): Add function definition; Use symbol. * intrinsic.c (add_subroutines): Add subroutine definitions. * intrinsic.h: Add prototypes. * iresolve.c (gfc_resolve_getcwd, gfc_resolve_getcwd_sub): New functions. * trans-intrinsic.c (gfc_conv_intrinsic_function): Use symbol. libgfortran/ * intrinsics/getcwd.c: New file. * Makefile.am: Add getcwd.c. * Makefile.in: Regenerated. From-SVN: r87552 --- gcc/fortran/check.c | 17 +++++++++++++++++ 1 file changed, 17 insertions(+) (limited to 'gcc/fortran/check.c') diff --git a/gcc/fortran/check.c b/gcc/fortran/check.c index 6bc9e09..fc5390c 100644 --- a/gcc/fortran/check.c +++ b/gcc/fortran/check.c @@ -2093,3 +2093,20 @@ gfc_check_etime_sub (gfc_expr * values, gfc_expr * time) return SUCCESS; } + + +try +gfc_check_getcwd_sub (gfc_expr * cwd, gfc_expr * status) +{ + + if (type_check (cwd, 0, BT_CHARACTER) == FAILURE) + return FAILURE; + + if (scalar_check (status, 1) == FAILURE) + return FAILURE; + + if (type_check (status, 1, BT_INTEGER) == FAILURE) + return FAILURE; + + return SUCCESS; +} -- cgit v1.1