2004-05-13 08:41:07 +02:00
|
|
|
/* gfortran header file
|
arith.c, [...]: Update copyright.
* arith.c, array.c, check.c, decl.c, expr.c, f95-lang.c,
gfortran.h, interface.c, intrinsic.c, io.c, iresolve.c,
match.c, matchexp.c, misc.c, module.c, options.c, parse.c,
scanner.c, simplify.c, symbol.c, trans-array.c, trans-expr.c,
trans-io.c, trans-stmt.c, trans.c: Update copyright.
From-SVN: r93830
2005-01-18 13:11:56 +01:00
|
|
|
Copyright (C) 2000, 2001, 2002, 2003, 2004, 2005 Free Software Foundation,
|
Make-lang.in, [...]: Update copyright years and boilerplate.
* Make-lang.in, arith.c, arith.h, array.c, bbt.c, check.c,
decl.c, dependency.c, dependency.h, dump-parse-tree.c, error.c,
expr.c, f95-lang.c, gfortran.h, interface.c, intrinsic.c,
intrinsic.h, io.c, iresolve.c, lang-specs.h, match.c, match.h,
matchexp.c, misc.c, module.c, options.c, parse.c, parse.h,
primary.c, resolve.c, scanner.c, simplify.c, st.c, symbol.c,
trans-array.c, trans-array.h, trans-common.c, trans-const.c,
trans-const.h, trans-decl.c, trans-expr.c, trans-intrinsic.c,
trans-io.c, trans-stmt.c, trans-stmt.h, trans-types.c,
trans-types.h, trans.c, trans.h: Update copyright years and
boilerplate.
* data.c: Likewise, also removed two whitespace-only lines.
* gfortranspec.c, lang.opt: Update copyright years.
From-SVN: r81839
2004-05-14 15:00:04 +02:00
|
|
|
Inc.
|
2004-05-13 08:41:07 +02:00
|
|
|
Contributed by Andy Vaught
|
|
|
|
|
Make-lang.in, [...]: Update copyright years and boilerplate.
* Make-lang.in, arith.c, arith.h, array.c, bbt.c, check.c,
decl.c, dependency.c, dependency.h, dump-parse-tree.c, error.c,
expr.c, f95-lang.c, gfortran.h, interface.c, intrinsic.c,
intrinsic.h, io.c, iresolve.c, lang-specs.h, match.c, match.h,
matchexp.c, misc.c, module.c, options.c, parse.c, parse.h,
primary.c, resolve.c, scanner.c, simplify.c, st.c, symbol.c,
trans-array.c, trans-array.h, trans-common.c, trans-const.c,
trans-const.h, trans-decl.c, trans-expr.c, trans-intrinsic.c,
trans-io.c, trans-stmt.c, trans-stmt.h, trans-types.c,
trans-types.h, trans.c, trans.h: Update copyright years and
boilerplate.
* data.c: Likewise, also removed two whitespace-only lines.
* gfortranspec.c, lang.opt: Update copyright years.
From-SVN: r81839
2004-05-14 15:00:04 +02:00
|
|
|
This file is part of GCC.
|
2004-05-13 08:41:07 +02:00
|
|
|
|
Make-lang.in, [...]: Update copyright years and boilerplate.
* Make-lang.in, arith.c, arith.h, array.c, bbt.c, check.c,
decl.c, dependency.c, dependency.h, dump-parse-tree.c, error.c,
expr.c, f95-lang.c, gfortran.h, interface.c, intrinsic.c,
intrinsic.h, io.c, iresolve.c, lang-specs.h, match.c, match.h,
matchexp.c, misc.c, module.c, options.c, parse.c, parse.h,
primary.c, resolve.c, scanner.c, simplify.c, st.c, symbol.c,
trans-array.c, trans-array.h, trans-common.c, trans-const.c,
trans-const.h, trans-decl.c, trans-expr.c, trans-intrinsic.c,
trans-io.c, trans-stmt.c, trans-stmt.h, trans-types.c,
trans-types.h, trans.c, trans.h: Update copyright years and
boilerplate.
* data.c: Likewise, also removed two whitespace-only lines.
* gfortranspec.c, lang.opt: Update copyright years.
From-SVN: r81839
2004-05-14 15:00:04 +02:00
|
|
|
GCC is free software; you can redistribute it and/or modify it under
|
|
|
|
the terms of the GNU General Public License as published by the Free
|
|
|
|
Software Foundation; either version 2, or (at your option) any later
|
|
|
|
version.
|
2004-05-13 08:41:07 +02:00
|
|
|
|
Make-lang.in, [...]: Update copyright years and boilerplate.
* Make-lang.in, arith.c, arith.h, array.c, bbt.c, check.c,
decl.c, dependency.c, dependency.h, dump-parse-tree.c, error.c,
expr.c, f95-lang.c, gfortran.h, interface.c, intrinsic.c,
intrinsic.h, io.c, iresolve.c, lang-specs.h, match.c, match.h,
matchexp.c, misc.c, module.c, options.c, parse.c, parse.h,
primary.c, resolve.c, scanner.c, simplify.c, st.c, symbol.c,
trans-array.c, trans-array.h, trans-common.c, trans-const.c,
trans-const.h, trans-decl.c, trans-expr.c, trans-intrinsic.c,
trans-io.c, trans-stmt.c, trans-stmt.h, trans-types.c,
trans-types.h, trans.c, trans.h: Update copyright years and
boilerplate.
* data.c: Likewise, also removed two whitespace-only lines.
* gfortranspec.c, lang.opt: Update copyright years.
From-SVN: r81839
2004-05-14 15:00:04 +02:00
|
|
|
GCC is distributed in the hope that it will be useful, but WITHOUT ANY
|
|
|
|
WARRANTY; without even the implied warranty of MERCHANTABILITY or
|
|
|
|
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
|
|
|
|
for more details.
|
2004-05-13 08:41:07 +02:00
|
|
|
|
|
|
|
You should have received a copy of the GNU General Public License
|
Make-lang.in, [...]: Update copyright years and boilerplate.
* Make-lang.in, arith.c, arith.h, array.c, bbt.c, check.c,
decl.c, dependency.c, dependency.h, dump-parse-tree.c, error.c,
expr.c, f95-lang.c, gfortran.h, interface.c, intrinsic.c,
intrinsic.h, io.c, iresolve.c, lang-specs.h, match.c, match.h,
matchexp.c, misc.c, module.c, options.c, parse.c, parse.h,
primary.c, resolve.c, scanner.c, simplify.c, st.c, symbol.c,
trans-array.c, trans-array.h, trans-common.c, trans-const.c,
trans-const.h, trans-decl.c, trans-expr.c, trans-intrinsic.c,
trans-io.c, trans-stmt.c, trans-stmt.h, trans-types.c,
trans-types.h, trans.c, trans.h: Update copyright years and
boilerplate.
* data.c: Likewise, also removed two whitespace-only lines.
* gfortranspec.c, lang.opt: Update copyright years.
From-SVN: r81839
2004-05-14 15:00:04 +02:00
|
|
|
along with GCC; see the file COPYING. If not, write to the Free
|
2005-06-25 02:40:37 +02:00
|
|
|
Software Foundation, 51 Franklin Street, Fifth Floor, Boston, MA
|
|
|
|
02110-1301, USA. */
|
2004-05-13 08:41:07 +02:00
|
|
|
|
|
|
|
#ifndef GCC_GFORTRAN_H
|
|
|
|
#define GCC_GFORTRAN_H
|
|
|
|
|
|
|
|
/* It's probably insane to have this large of a header file, but it
|
|
|
|
seemed like everything had to be recompiled anyway when a change
|
|
|
|
was made to a header file, and there were ordering issues with
|
|
|
|
multiple header files. Besides, Microsoft's winnt.h was 250k last
|
|
|
|
time I looked, so by comparison this is perfectly reasonable. */
|
|
|
|
|
|
|
|
#include "system.h"
|
2005-09-17 20:58:01 +02:00
|
|
|
#include "intl.h"
|
2004-05-13 08:41:07 +02:00
|
|
|
#include "coretypes.h"
|
2004-09-07 16:43:37 +02:00
|
|
|
#include "input.h"
|
2004-05-13 08:41:07 +02:00
|
|
|
|
|
|
|
/* The following ifdefs are recommended by the autoconf documentation
|
|
|
|
for any code using alloca. */
|
|
|
|
|
|
|
|
/* AIX requires this to be the first thing in the file. */
|
|
|
|
#ifdef __GNUC__
|
|
|
|
#else /* not __GNUC__ */
|
|
|
|
#ifdef HAVE_ALLOCA_H
|
|
|
|
#include <alloca.h>
|
|
|
|
#else /* do not HAVE_ALLOCA_H */
|
|
|
|
#ifdef _AIX
|
|
|
|
#pragma alloca
|
|
|
|
#else
|
|
|
|
#ifndef alloca /* predefined by HP cc +Olibcalls */
|
|
|
|
char *alloca ();
|
|
|
|
#endif /* not predefined */
|
|
|
|
#endif /* not _AIX */
|
|
|
|
#endif /* do not HAVE_ALLOCA_H */
|
|
|
|
#endif /* not __GNUC__ */
|
|
|
|
|
|
|
|
/* Major control parameters. */
|
|
|
|
|
|
|
|
#define GFC_MAX_SYMBOL_LEN 63
|
|
|
|
#define GFC_MAX_LINE 132 /* Characters beyond this are not seen. */
|
|
|
|
#define GFC_MAX_DIMENSIONS 7 /* Maximum dimensions in an array. */
|
|
|
|
#define GFC_LETTERS 26 /* Number of letters in the alphabet. */
|
|
|
|
|
|
|
|
#define free(x) Use_gfc_free_instead_of_free()
|
|
|
|
#define gfc_is_whitespace(c) ((c==' ') || (c=='\t'))
|
|
|
|
|
|
|
|
#ifndef NULL
|
|
|
|
#define NULL ((void *) 0)
|
|
|
|
#endif
|
|
|
|
|
|
|
|
/* Stringization. */
|
|
|
|
#define stringize(x) expand_macro(x)
|
|
|
|
#define expand_macro(x) # x
|
|
|
|
|
|
|
|
/* For a the runtime library, a standard prefix is a requirement to
|
|
|
|
avoid cluttering the namespace with things nobody asked for. It's
|
|
|
|
ugly to look at and a pain to type when you add the prefix by hand,
|
|
|
|
so we hide it behind a macro. */
|
|
|
|
#define PREFIX(x) "_gfortran_" x
|
2004-05-19 02:34:59 +02:00
|
|
|
#define PREFIX_LEN 10
|
2004-05-13 08:41:07 +02:00
|
|
|
|
re PR fortran/18878 ([4.0 only] erronous error message on vaild USE statement)
2005-09-09 Paul Thomas <pault@gcc.gnu.org>
PR fortran/18878
* module.c (find_use_name_n): Based on original
find_use_name. Either counts number of use names for a
given real name or returns use name n.
(find_use_name, number_use_names): Interfaces to the
function find_use_name_n.
(read_module): Add the logic and calls to these functions,
so that mutiple reuses of the same real name are loaded.
2005-09-09 Paul Thomas <pault@gcc.gnu.org>
PR fortran/22304
PR fortran/23270
PR fortran/18870
PR fortran/16511
PR fortran/17917
* gfortran.h: Move definition of BLANK_COMMON_NAME from trans-
common.c so that it is accessible to module.c. Add common_head
field to gfc_symbol structure. Add field for the equivalence
name AND new attr field, in_equivalence.
* match.c (gfc_match_common, gfc_match_equivalence): In loops
that flag common block equivalences, emit an error if the
common blocks are different, using sym->common_head as the
common block identifier. Ensure that symbols that are equivalence
associated with a common block are marked as being in_common.
* module.c (write_blank_common): New.
(write_common): Use unmangled common block name.
(load_equiv): New function ported from g95.
(read_module): Call load_equiv.
(write_equiv): New function ported from g95. Correct
string referencing for gfc functions. Give module
equivalences a unique name.
(write_module): Call write_equiv and write_blank_common.
* primary.c (match_variable) Old gfc_match_variable, made
static and third argument provided to indicate if parent
namespace to be visited or not.
(gfc_match_variable) New. Interface to match_variable.
(gfc_match_equiv_variable) New. Interface to match_variable.
* trans-common.c (finish_equivalences): Provide the call
to create_common with a gfc_common_header so that
module equivalences are made external, rather than local.
(find_equivalences): Ensure that all members in common block
equivalences are marked as used. This prevents the subsequent
call to this function from making local unions.
* trans-decl.c (gfc_generate_function_code): Move the call to
gfc_generate_contained_functions to after the call to
gfc_trans_common so the use-associated, contained common
blocks produce the correct references.
(gfc_create_module_variable): Return for equivalenced symbols
with existing backend declaration.
2005-09-09 Paul Thomas <pault@gcc.gnu.org>
PR fortran/18878
* gfortran.dg/module_double_reuse.f90: New.
2005-09-09 Paul Thomas <pault@gcc.gnu.org>
PR fortran/23270
PR fortran/22304
PR fortran/18870
PR fortran/17917
PR fortran/16511
* gfortran.dg/common_equivalence_1.f: New.
* gfortran.dg/common_equivalence_2.f: New.
* gfortran.dg/common_equivalence_3.f: New.
* gfortran.dg/contained_equivalence_1.f90: New.
* gfortran.dg/module_blank_common.f90: New.
* gfortran.dg/module_commons_1.f90: New.
* gfortran.dg/module_equivalence_1.f90: New.
* gfortran.dg/nested_modules_1.f90: New.
* gfortran.dg/g77/19990905-0.f: Remove XFAIL, rearrange
equivalences and add comment to connect the test with
the PR.
From-SVN: r104060
2005-09-09 02:23:09 +02:00
|
|
|
#define BLANK_COMMON_NAME "__BLNK__"
|
|
|
|
|
2004-05-13 08:41:07 +02:00
|
|
|
/* Macro to initialize an mstring structure. */
|
|
|
|
#define minit(s, t) { s, NULL, t }
|
|
|
|
|
|
|
|
/* Structure for storing strings to be matched by gfc_match_string. */
|
|
|
|
typedef struct
|
|
|
|
{
|
|
|
|
const char *string;
|
|
|
|
const char *mp;
|
|
|
|
int tag;
|
|
|
|
}
|
|
|
|
mstring;
|
|
|
|
|
|
|
|
|
2004-12-12 17:30:00 +01:00
|
|
|
/* Flags to specify which standard/extension contains a feature. */
|
2005-05-31 00:16:08 +02:00
|
|
|
#define GFC_STD_LEGACY (1<<6) /* Backward compatibility. */
|
|
|
|
#define GFC_STD_GNU (1<<5) /* GNU Fortran extension. */
|
|
|
|
#define GFC_STD_F2003 (1<<4) /* New in F2003. */
|
arith.c, [...]: Fix comment formatting.
* arith.c, array.c, decl.c, expr.c, f95-lang.c, gfortran.h,
gfortranspec.c, interface.c, intrinsic.c, iresolve.c, match.c,
module.c, parse.c, parse.h, primary.c, resolve.c, scanner.c,
trans-array.c, trans-array.h, trans-expr.c, trans-intrinsic.c,
trans-io.c, trans-stmt.c, trans.h: Fix comment formatting.
From-SVN: r90266
2004-11-08 15:56:41 +01:00
|
|
|
/* Note that no features were obsoleted nor deleted in F2003. */
|
2005-05-31 00:16:08 +02:00
|
|
|
#define GFC_STD_F95 (1<<3) /* New in F95. */
|
|
|
|
#define GFC_STD_F95_DEL (1<<2) /* Deleted in F95. */
|
|
|
|
#define GFC_STD_F95_OBS (1<<1) /* Obsoleted in F95. */
|
|
|
|
#define GFC_STD_F77 (1<<0) /* Up to and including F77. */
|
2004-05-13 08:41:07 +02:00
|
|
|
|
2005-10-12 22:21:31 +02:00
|
|
|
/* Bitmasks for the various FPE that can be enabled. */
|
|
|
|
#define GFC_FPE_INVALID (1<<0)
|
|
|
|
#define GFC_FPE_DENORMAL (1<<1)
|
|
|
|
#define GFC_FPE_ZERO (1<<2)
|
|
|
|
#define GFC_FPE_OVERFLOW (1<<3)
|
|
|
|
#define GFC_FPE_UNDERFLOW (1<<4)
|
|
|
|
#define GFC_FPE_PRECISION (1<<5)
|
|
|
|
|
|
|
|
|
2004-05-13 08:41:07 +02:00
|
|
|
/*************************** Enums *****************************/
|
|
|
|
|
|
|
|
/* The author remains confused to this day about the convention of
|
|
|
|
returning '0' for 'SUCCESS'... or was it the other way around? The
|
|
|
|
following enum makes things much more readable. We also start
|
|
|
|
values off at one instead of zero. */
|
|
|
|
|
|
|
|
typedef enum
|
|
|
|
{ SUCCESS = 1, FAILURE }
|
|
|
|
try;
|
|
|
|
|
|
|
|
/* Matchers return one of these three values. The difference between
|
|
|
|
MATCH_NO and MATCH_ERROR is that MATCH_ERROR means that a match was
|
|
|
|
successful, but that something non-syntactic is wrong and an error
|
|
|
|
has already been issued. */
|
|
|
|
|
|
|
|
typedef enum
|
|
|
|
{ MATCH_NO = 1, MATCH_YES, MATCH_ERROR }
|
|
|
|
match;
|
|
|
|
|
|
|
|
typedef enum
|
|
|
|
{ FORM_FREE, FORM_FIXED, FORM_UNKNOWN }
|
|
|
|
gfc_source_form;
|
|
|
|
|
|
|
|
typedef enum
|
|
|
|
{ BT_UNKNOWN = 1, BT_INTEGER, BT_REAL, BT_COMPLEX,
|
2005-07-07 09:54:58 +02:00
|
|
|
BT_LOGICAL, BT_CHARACTER, BT_DERIVED, BT_PROCEDURE, BT_HOLLERITH
|
2004-05-13 08:41:07 +02:00
|
|
|
}
|
|
|
|
bt;
|
|
|
|
|
|
|
|
/* Expression node types. */
|
|
|
|
typedef enum
|
|
|
|
{ EXPR_OP = 1, EXPR_FUNCTION, EXPR_CONSTANT, EXPR_VARIABLE,
|
|
|
|
EXPR_SUBSTRING, EXPR_STRUCTURE, EXPR_ARRAY, EXPR_NULL
|
|
|
|
}
|
|
|
|
expr_t;
|
|
|
|
|
|
|
|
/* Array types. */
|
|
|
|
typedef enum
|
|
|
|
{ AS_EXPLICIT = 1, AS_ASSUMED_SHAPE, AS_DEFERRED,
|
|
|
|
AS_ASSUMED_SIZE, AS_UNKNOWN
|
|
|
|
}
|
|
|
|
array_type;
|
|
|
|
|
|
|
|
typedef enum
|
|
|
|
{ AR_FULL = 1, AR_ELEMENT, AR_SECTION, AR_UNKNOWN }
|
|
|
|
ar_type;
|
|
|
|
|
|
|
|
/* Statement label types. */
|
|
|
|
typedef enum
|
|
|
|
{ ST_LABEL_UNKNOWN = 1, ST_LABEL_TARGET,
|
|
|
|
ST_LABEL_BAD_TARGET, ST_LABEL_FORMAT
|
|
|
|
}
|
|
|
|
gfc_sl_type;
|
|
|
|
|
|
|
|
/* Intrinsic operators. */
|
|
|
|
typedef enum
|
|
|
|
{ GFC_INTRINSIC_BEGIN = 0,
|
|
|
|
INTRINSIC_NONE = -1, INTRINSIC_UPLUS = GFC_INTRINSIC_BEGIN,
|
|
|
|
INTRINSIC_UMINUS, INTRINSIC_PLUS, INTRINSIC_MINUS, INTRINSIC_TIMES,
|
|
|
|
INTRINSIC_DIVIDE, INTRINSIC_POWER, INTRINSIC_CONCAT,
|
|
|
|
INTRINSIC_AND, INTRINSIC_OR, INTRINSIC_EQV, INTRINSIC_NEQV,
|
|
|
|
INTRINSIC_EQ, INTRINSIC_NE, INTRINSIC_GT, INTRINSIC_GE,
|
|
|
|
INTRINSIC_LT, INTRINSIC_LE, INTRINSIC_NOT, INTRINSIC_USER,
|
|
|
|
INTRINSIC_ASSIGN,
|
|
|
|
GFC_INTRINSIC_END /* Sentinel */
|
|
|
|
}
|
|
|
|
gfc_intrinsic_op;
|
|
|
|
|
|
|
|
|
|
|
|
/* Strings for all intrinsic operators. */
|
|
|
|
extern mstring intrinsic_operators[];
|
|
|
|
|
|
|
|
|
|
|
|
/* This macro is the number of intrinsic operators that exist.
|
|
|
|
Assumptions are made about the numbering of the interface_op enums. */
|
|
|
|
#define GFC_INTRINSIC_OPS GFC_INTRINSIC_END
|
|
|
|
|
|
|
|
/* Arithmetic results. */
|
|
|
|
typedef enum
|
arith.c: Add #define for model numbers.
2004-08-06 Steven G. Kargl <kargls@comcast.net>
* arith.c: Add #define for model numbers. Remove global GMP variables.
(natural_logarithm,common_logarithm,exponential,sine,
cosine,arctangent,hypercos,hypersine ): Remove.
(gfc_mpfr_to_mpz,gfc_set_model_kind,gfc_set_model): New functions.
(arctangent2,gfc_arith_init_1,gfc_arith_done_1
gfc_check_real_range, gfc_constant_result, gfc_range_check,
gfc_arith_uminus,gfc_arith_plus, gfc_arith_minus, gfc_arith_times,
gfc_arith_divide,complex_reciprocal,complex_pow_ui,
gfc_arith_power,gfc_compare_expr,compare_complex,gfc_convert_real,
gfc_convert_complex,gfc_int2real,gfc_int2complex,
gfc_real2int,gfc_real2real,gfc_real2complex,
gfc_complex2int,gfc_complex2real,gfc_complex2complex): Convert GMP
to MPFR, use new functions.
* arith.h: Remove extern global variables.
(natural_logarithm,common_logarithm,exponential, sine, cosine,
arctangent,hypercos,hypersine): Remove prototypes.
(arctangent2): Update prototype from GMP to MPFR.
(gfc_mpfr_to_mpz, gfc_set_model_kind,gfc_set_model): Add prototypes.
* dump-parse-tree.c (gfc_show_expr): Convert GMP to MPFR.
* expr.c (free_expr0,gfc_copy_expr): Convert GMP to MPFR.
* gfortran.h (GFC_REAL_BITS): Remove.
(arith): Add ARITH_NAN.
Include mpfr.h. Define GFC_RND_MODE.
Rename GCC_GFORTRAN_H GFC_GFC_H.
(gfc_expr): Convert GMP to MPFR.
* module.c: Add arith.h, correct type in comment.
(mio_gmp_real): Convert GMP to MPFR.
(mio_expr): Use gfc_set_model_kind().
* primary.c: Update copyright date with 2004.
(match_real_constant,match_const_complex_part): Convert GMP to MPFR.
* simplify.c: Remove global GMP variables
(gfc_simplify_abs,gfc_simplify_acos,gfc_simplify_aimag,
gfc_simplify_aint,gfc_simplify_dint,gfc_simplify_anint,
gfc_simplify_dnint,gfc_simplify_asin,gfc_simplify_atan,
gfc_simplify_atan2,gfc_simplify_ceiling,simplify_cmplx,
gfc_simplify_conjg,gfc_simplify_cos,gfc_simplify_cosh,
gfc_simplify_dim,gfc_simplify_dprod,gfc_simplify_epsilon,
gfc_simplify_exp,gfc_simplify_exponent,gfc_simplify_floor,
gfc_simplify_fraction,gfc_simplify_huge,gfc_simplify_int,
gfc_simplify_ifix,gfc_simplify_idint,gfc_simplify_log,
gfc_simplify_log10,simplify_min_max,gfc_simplify_mod,
gfc_simplify_modulo,gfc_simplify_nearest,simplify_nint,
gfc_simplify_rrspacing,gfc_simplify_scale,
gfc_simplify_set_exponent,gfc_simplify_sign,gfc_simplify_sin,
gfc_simplify_sinh,gfc_simplify_spacing,gfc_simplify_sqrt,
gfc_simplify_tan,gfc_simplify_tanh,gfc_simplify_tiny,
gfc_simplify_init_1,gfc_simplify_done_1): Convert GMP to MPFR.
Use new functions.
* trans-const.c (gfc_conv_mpfr_to_tree): Rename from
gfc_conv_mpf_to_tree. Convert it to use MPFR
(gfc_conv_constant_to_tree): Use it.
* trans-const.h: Update prototype for gfc_conv_mpfr_to_tree().
* trans-intrinsic.c: Add arith.h, remove gmp.h
(gfc_conv_intrinsic_aint,gfc_conv_intrinsic_mod): Convert GMP to MPFR.
From-SVN: r85652
2004-08-06 22:36:05 +02:00
|
|
|
{ ARITH_OK = 1, ARITH_OVERFLOW, ARITH_UNDERFLOW, ARITH_NAN,
|
2005-03-19 20:23:04 +01:00
|
|
|
ARITH_DIV0, ARITH_INCOMMENSURATE, ARITH_ASYMMETRIC
|
2004-05-13 08:41:07 +02:00
|
|
|
}
|
|
|
|
arith;
|
|
|
|
|
|
|
|
/* Statements. */
|
|
|
|
typedef enum
|
|
|
|
{
|
|
|
|
ST_ARITHMETIC_IF, ST_ALLOCATE, ST_ATTR_DECL, ST_BACKSPACE, ST_BLOCK_DATA,
|
|
|
|
ST_CALL, ST_CASE, ST_CLOSE, ST_COMMON, ST_CONTINUE, ST_CONTAINS, ST_CYCLE,
|
|
|
|
ST_DATA, ST_DATA_DECL, ST_DEALLOCATE, ST_DO, ST_ELSE, ST_ELSEIF,
|
|
|
|
ST_ELSEWHERE, ST_END_BLOCK_DATA, ST_ENDDO, ST_IMPLIED_ENDDO,
|
2005-08-08 00:56:19 +02:00
|
|
|
ST_END_FILE, ST_FLUSH, ST_END_FORALL, ST_END_FUNCTION, ST_ENDIF,
|
|
|
|
ST_END_INTERFACE, ST_END_MODULE, ST_END_PROGRAM, ST_END_SELECT,
|
|
|
|
ST_END_SUBROUTINE, ST_END_WHERE, ST_END_TYPE, ST_ENTRY, ST_EQUIVALENCE,
|
|
|
|
ST_EXIT, ST_FORALL, ST_FORALL_BLOCK, ST_FORMAT, ST_FUNCTION, ST_GOTO,
|
|
|
|
ST_IF_BLOCK, ST_IMPLICIT, ST_IMPLICIT_NONE, ST_INQUIRE, ST_INTERFACE,
|
|
|
|
ST_PARAMETER, ST_MODULE, ST_MODULE_PROC, ST_NAMELIST, ST_NULLIFY, ST_OPEN,
|
|
|
|
ST_PAUSE, ST_PRIVATE, ST_PROGRAM, ST_PUBLIC, ST_READ, ST_RETURN, ST_REWIND,
|
|
|
|
ST_STOP, ST_SUBROUTINE, ST_TYPE, ST_USE, ST_WHERE_BLOCK, ST_WHERE, ST_WRITE,
|
|
|
|
ST_ASSIGNMENT, ST_POINTER_ASSIGNMENT, ST_SELECT_CASE, ST_SEQUENCE,
|
|
|
|
ST_SIMPLE_IF, ST_STATEMENT_FUNCTION, ST_DERIVED_DECL, ST_LABEL_ASSIGNMENT,
|
arith.c (gfc_enum_initializer): New function.
fortran/
2005-10-30 Gaurav Gautam <gauravga@noida.hcltech.com>
Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de>
* arith.c (gfc_enum_initializer): New function.
(gfc_check_integer_range): Made extern.
* decl.c (enumerator_history): New typedef.
(last_initializer, enum_history, max_enum): New variables.
(create_enum_history, gfc_free_enum_history): New functions.
(add_init_expr_to_sym): Call create_enum_history if parsing ENUM.
(variable_decl): Modified to parse enumerator definition.
(match_attr_spec): Add PARAMETER attribute to ENUMERATORs.
(gfc_match_data_decl): Issues error, if match_type_spec do not
return desired return values.
(set_enum_kind, gfc_match_enum, gfc_match_enumerator_def): New
functions.
(gfc_match_end): Deal with END ENUM.
* gfortran.h (gfc_statement): ST_ENUM, ST_ENUMERATOR, ST_END_ENUM
added.
(symbol_attribute): Bit field for enumerator added.
(gfc_options): Add fshort_enums.
(gfc_enum_initializer, gfc_check_integer_range): Add prototypes.
* options.c: Include target.h
(gfc_init_options): Initialize fshort_enums.
(gfc_handle_option): Deal with fshort_enums.
* parse.c (decode_statement): Match ENUM and ENUMERATOR statement.
(gfc_ascii_statement): Deal with the enumerator statements.
(parse_enum): New function to parse enum construct.
(parse_spec): Added case ST_ENUM.
* parse.h (gfc_compile_state): COMP_ENUM added.
(gfc_match_enum, gfc_match_enumerator_def, gfc_free_enum_history):
Prototype added.
* symbol.c (gfc_copy_attr): Copy enumeration attribute.
* lang.opt (fshort-enums): Option added.
testsuite/
2005-10-30 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de>
* gfortran.dg/enum_10.f90, gfortran.dg/enum_10.c: New test.
2005-10-30 Gaurav Gautam <gauravga@noida.hcltech.com>
* gfortran.dg/enum_1.f90, gfortran.dg/enum_2.f90,
gfortran.dg/enum_3.f90, gfortran.dg/enum_4.f90,
gfortran.dg/enum_5.f90, gfortran.dg/enum_6.f90,
gfortran.dg/enum_7.f90, gfortran.dg/enum_8.f90,
gfortran.dg/enum_9.f90,
gfortran.fortran-torture/compile/enum_1.f90,
gfortran.fortran-torture/execute/enum_1.f90,
gfortran.fortran-torture/execute/enum_2.f90,
gfortran.fortran-torture/execute/enum_3.f90,
gfortran.fortran-torture/execute/enum_4.f90: New tests.
From-SVN: r106246
2005-10-30 19:09:55 +01:00
|
|
|
ST_ENUM, ST_ENUMERATOR, ST_END_ENUM, ST_NONE
|
2004-05-13 08:41:07 +02:00
|
|
|
}
|
|
|
|
gfc_statement;
|
|
|
|
|
|
|
|
|
|
|
|
/* Types of interfaces that we can have. Assignment interfaces are
|
|
|
|
considered to be intrinsic operators. */
|
|
|
|
typedef enum
|
|
|
|
{
|
|
|
|
INTERFACE_NAMELESS = 1, INTERFACE_GENERIC,
|
|
|
|
INTERFACE_INTRINSIC_OP, INTERFACE_USER_OP
|
|
|
|
}
|
|
|
|
interface_type;
|
|
|
|
|
|
|
|
/* Symbol flavors: these are all mutually exclusive.
|
|
|
|
10 elements = 4 bits. */
|
2005-03-12 03:06:20 +01:00
|
|
|
typedef enum sym_flavor
|
2004-05-13 08:41:07 +02:00
|
|
|
{
|
|
|
|
FL_UNKNOWN = 0, FL_PROGRAM, FL_BLOCK_DATA, FL_MODULE, FL_VARIABLE,
|
|
|
|
FL_PARAMETER, FL_LABEL, FL_PROCEDURE, FL_DERIVED, FL_NAMELIST
|
|
|
|
}
|
|
|
|
sym_flavor;
|
|
|
|
|
|
|
|
/* Procedure types. 7 elements = 3 bits. */
|
2005-03-12 03:06:20 +01:00
|
|
|
typedef enum procedure_type
|
2004-05-13 08:41:07 +02:00
|
|
|
{ PROC_UNKNOWN, PROC_MODULE, PROC_INTERNAL, PROC_DUMMY,
|
|
|
|
PROC_INTRINSIC, PROC_ST_FUNCTION, PROC_EXTERNAL
|
|
|
|
}
|
|
|
|
procedure_type;
|
|
|
|
|
|
|
|
/* Intent types. */
|
2005-03-12 03:06:20 +01:00
|
|
|
typedef enum sym_intent
|
2004-05-13 08:41:07 +02:00
|
|
|
{ INTENT_UNKNOWN = 0, INTENT_IN, INTENT_OUT, INTENT_INOUT
|
|
|
|
}
|
|
|
|
sym_intent;
|
|
|
|
|
|
|
|
/* Access types. */
|
2005-03-12 03:06:20 +01:00
|
|
|
typedef enum gfc_access
|
|
|
|
{ ACCESS_UNKNOWN = 0, ACCESS_PUBLIC, ACCESS_PRIVATE
|
2004-05-13 08:41:07 +02:00
|
|
|
}
|
|
|
|
gfc_access;
|
|
|
|
|
|
|
|
/* Flags to keep track of where an interface came from.
|
|
|
|
4 elements = 2 bits. */
|
2005-03-12 03:06:20 +01:00
|
|
|
typedef enum ifsrc
|
2004-05-13 08:41:07 +02:00
|
|
|
{ IFSRC_UNKNOWN = 0, IFSRC_DECL, IFSRC_IFBODY, IFSRC_USAGE
|
|
|
|
}
|
|
|
|
ifsrc;
|
|
|
|
|
|
|
|
/* Strings for all symbol attributes. We use these for dumping the
|
|
|
|
parse tree, in error messages, and also when reading and writing
|
|
|
|
modules. In symbol.c. */
|
|
|
|
extern const mstring flavors[];
|
|
|
|
extern const mstring procedures[];
|
|
|
|
extern const mstring intents[];
|
|
|
|
extern const mstring access_types[];
|
|
|
|
extern const mstring ifsrc_types[];
|
|
|
|
|
|
|
|
/* Enumeration of all the generic intrinsic functions. Used by the
|
|
|
|
backend for identification of a function. */
|
|
|
|
|
|
|
|
enum gfc_generic_isym_id
|
|
|
|
{
|
|
|
|
/* GFC_ISYM_NONE is used for intrinsics which will never be seen by
|
|
|
|
the backend (eg. KIND). */
|
|
|
|
GFC_ISYM_NONE = 0,
|
|
|
|
GFC_ISYM_ABS,
|
|
|
|
GFC_ISYM_ACHAR,
|
|
|
|
GFC_ISYM_ACOS,
|
2005-06-25 01:12:32 +02:00
|
|
|
GFC_ISYM_ACOSH,
|
2004-05-13 08:41:07 +02:00
|
|
|
GFC_ISYM_ADJUSTL,
|
|
|
|
GFC_ISYM_ADJUSTR,
|
|
|
|
GFC_ISYM_AIMAG,
|
|
|
|
GFC_ISYM_AINT,
|
|
|
|
GFC_ISYM_ALL,
|
|
|
|
GFC_ISYM_ALLOCATED,
|
|
|
|
GFC_ISYM_ANINT,
|
|
|
|
GFC_ISYM_ANY,
|
|
|
|
GFC_ISYM_ASIN,
|
2005-06-25 01:12:32 +02:00
|
|
|
GFC_ISYM_ASINH,
|
2004-05-13 08:41:07 +02:00
|
|
|
GFC_ISYM_ASSOCIATED,
|
|
|
|
GFC_ISYM_ATAN,
|
2005-06-25 01:12:32 +02:00
|
|
|
GFC_ISYM_ATANH,
|
2004-05-13 08:41:07 +02:00
|
|
|
GFC_ISYM_ATAN2,
|
check.c (gfc_check_besn, [...]): New functions.
2004-08-29 Steven G. Kargl <kargls@comcast.net>
Paul Brook <paul@codesourcery.com>
* check.c (gfc_check_besn, gfc_check_g77_math1): New functions.
* f95-lang.c (DO_DEFINE_MATH_BUILTIN): Define.
(DEFINE_MATH_BUILTIN, DEFINE_MATH_BUILTIN_C): Use it.
(build_builtin_fntypes): New function.
(gfc_init_builtin_functions): Use it.
* gfortran.h (enum gfc_generic_isym_id): Add GFC_ISYM_{J,Y}{0,1,N}
and GFC_ISYM_ERF{,C}.
(gfc_c_int_kind): Declare.
* intrinsic.c (add_functions): Add [d]bes* and [d]erf*.
* intrinsic.h (gfc_check_besn, gfc_check_g77_math1, gfc_resolve_besn,
gfc_resolve_g77_math1): Add prototypes.
* resolve.c (gfc_resolve_besn, gfc_resolve_g77_math1): New functions.
* mathbuiltins.def: Add comment. Change third argument. Use
DEFINE_MATH_BUILTIN_C. Add bessel and error functions.
* trans-intrinsic.c (BUILT_IN_FUNCTION): Define.
(DEFINE_MATH_BUILTIN, DEFINE_MATH_BUILTIN_C): Use it.
* trans-types.c (gfc_c_int_kind): Declare.
(gfc_init_kinds): Set it.
testsuite/
* gfortran.dg/g77/README: Update.
* gfortran.dg/g77/erfc.f: Copy from g77.f-torture.
* gfortran.dg/g77/intrinsic-unix-bessel.f: Ditto.
* gfortran.dg/g77/intrinsic-unix-erf.f: Ditto.
libgfortran/
* intrinsics/bessel.c: New file.
* intrinsics/erf.c: New file.
* Makefie.am: Add intrinsics/bessel.c and intrinsics/erf.c.
* configure.ac: Test for C99 Bessel and Error functions.
* Makefile.in: Regenerate.
* config.h.in: Regenerate.
* configure: Regenerate.
Co-Authored-By: Paul Brook <paul@codesourcery.com>
From-SVN: r86727
2004-08-29 17:58:16 +02:00
|
|
|
GFC_ISYM_J0,
|
|
|
|
GFC_ISYM_J1,
|
|
|
|
GFC_ISYM_JN,
|
|
|
|
GFC_ISYM_Y0,
|
|
|
|
GFC_ISYM_Y1,
|
|
|
|
GFC_ISYM_YN,
|
2004-05-13 08:41:07 +02:00
|
|
|
GFC_ISYM_BTEST,
|
|
|
|
GFC_ISYM_CEILING,
|
|
|
|
GFC_ISYM_CHAR,
|
Makefile.am: Added new files.
* Makefile.am: Added new files.
* Makefile.in: Regenerate.
* aclocal.m4: Regenerate.
* configure.ac: add checks for signal.h headers file, as well as
following functions: chdir, strerror, getlogin, gethostname, kill,
link, symlink, perror, sleep, time.
* configure: Regenerate.
* intrinsics/chdir.c, intrinsics/gerror.c, intrinsics/getlog.c,
intrinsics/hostnm.c, intrinsics/ierrno.c, intrinsics/kill.c,
intrinsics/link.c, intrinsics/perror.c, intrinsics/rename.c,
intrinsics/sleep.c, intrinsics/symlnk.c, intrinsics/time.c: Newly
implementend g77 intrinsics.
* check.c (gfc_check_chdir, gfc_check_chdir_sub, gfc_check_kill,
gfc_check_kill_sub, gfc_check_link, gfc_check_link_sub,
gfc_check_symlnk, gfc_check_symlnk_sub, gfc_check_rename,
gfc_check_rename_sub, gfc_check_sleep_sub, gfc_check_gerror,
gfc_check_getlog, gfc_check_hostnm, gfc_check_hostnm_sub,
gfc_check_perror): new functions to check newly implemented
g77 intrinsics.
* gfortran.h: adding symbols for new intrinsics.
* intrinsic.c (add_functions): adding new intrinsics.
(add_subroutines): adding new intrinsics.
* intrinsic.h: prototype for all checking and resolving
functions.
* iresolve.c (gfc_resolve_chdir, gfc_resolve_chdir_sub,
gfc_resolve_hostnm, gfc_resolve_ierrno, gfc_resolve_kill,
gfc_resolve_link, gfc_resolve_rename, gfc_resolve_symlnk,
gfc_resolve_time, gfc_resolve_time8, gfc_resolve_rename_sub,
gfc_resolve_kill_sub, gfc_resolve_link_sub,
gfc_resolve_symlnk_sub, gfc_resolve_sleep_sub,
gfc_resolve_gerror, gfc_resolve_getlog, gfc_resolve_hostnm_sub,
gfc_resolve_perror): new functions to resolve intrinsics.
* trans-intrinsic.c (gfc_conv_intrinsic_function): add case
for new symbols.
* g77_intrinsics_funcs.f: New test.
* g77_intrinsics_sub.f: New test.
From-SVN: r96893
2005-03-22 23:08:22 +01:00
|
|
|
GFC_ISYM_CHDIR,
|
2004-05-13 08:41:07 +02:00
|
|
|
GFC_ISYM_CMPLX,
|
2004-07-04 19:00:12 +02:00
|
|
|
GFC_ISYM_COMMAND_ARGUMENT_COUNT,
|
2004-05-13 08:41:07 +02:00
|
|
|
GFC_ISYM_CONJG,
|
|
|
|
GFC_ISYM_COS,
|
|
|
|
GFC_ISYM_COSH,
|
|
|
|
GFC_ISYM_COUNT,
|
|
|
|
GFC_ISYM_CSHIFT,
|
intrinsic.c (add_functions): Add ctime and fdate intrinsics.
* intrinsic.c (add_functions): Add ctime and fdate intrinsics.
(add_subroutines): Likewise.
* intrinsic.h: Prototypes for gfc_check_ctime,
gfc_check_ctime_sub, gfc_check_fdate_sub, gfc_resolve_ctime,
gfc_resolve_fdate, gfc_resolve_ctime_sub, gfc_resolve_fdate_sub.
* gfortran.h: Add GFC_ISYM_CTIME and GFC_ISYM_FDATE.
* iresolve.c (gfc_resolve_ctime, gfc_resolve_fdate,
gfc_resolve_ctime_sub, gfc_resolve_fdate_sub): New functions.
* trans-decl.c (gfc_build_intrinsic_function_decls): Add
gfor_fndecl_fdate and gfor_fndecl_ctime.
* check.c (gfc_check_ctime, gfc_check_ctime_sub,
gfc_check_fdate_sub): New functions.
* trans-intrinsic.c (gfc_conv_intrinsic_ctime,
gfc_conv_intrinsic_fdate): New functions.
(gfc_conv_intrinsic_function): Add cases for GFC_ISYM_CTIME
and GFC_ISYM_FDATE.
* intrinsic.texi: Documentation for the new CTIME and FDATE
intrinsics.
* trans.h: Declarations for gfor_fndecl_ctime and gfor_fndecl_fdate.
* intrinsics/ctime.c: New file.
* configure.ac: Add check for ctime.
* Makefile.am: Add ctime.c
* configure: Regenerate.
* config.h.in: Regenerate.
* Makefile.in: Regenerate.
From-SVN: r106558
2005-11-06 11:17:04 +01:00
|
|
|
GFC_ISYM_CTIME,
|
2004-05-13 08:41:07 +02:00
|
|
|
GFC_ISYM_DBLE,
|
|
|
|
GFC_ISYM_DIM,
|
|
|
|
GFC_ISYM_DOT_PRODUCT,
|
|
|
|
GFC_ISYM_DPROD,
|
|
|
|
GFC_ISYM_EOSHIFT,
|
check.c (gfc_check_besn, [...]): New functions.
2004-08-29 Steven G. Kargl <kargls@comcast.net>
Paul Brook <paul@codesourcery.com>
* check.c (gfc_check_besn, gfc_check_g77_math1): New functions.
* f95-lang.c (DO_DEFINE_MATH_BUILTIN): Define.
(DEFINE_MATH_BUILTIN, DEFINE_MATH_BUILTIN_C): Use it.
(build_builtin_fntypes): New function.
(gfc_init_builtin_functions): Use it.
* gfortran.h (enum gfc_generic_isym_id): Add GFC_ISYM_{J,Y}{0,1,N}
and GFC_ISYM_ERF{,C}.
(gfc_c_int_kind): Declare.
* intrinsic.c (add_functions): Add [d]bes* and [d]erf*.
* intrinsic.h (gfc_check_besn, gfc_check_g77_math1, gfc_resolve_besn,
gfc_resolve_g77_math1): Add prototypes.
* resolve.c (gfc_resolve_besn, gfc_resolve_g77_math1): New functions.
* mathbuiltins.def: Add comment. Change third argument. Use
DEFINE_MATH_BUILTIN_C. Add bessel and error functions.
* trans-intrinsic.c (BUILT_IN_FUNCTION): Define.
(DEFINE_MATH_BUILTIN, DEFINE_MATH_BUILTIN_C): Use it.
* trans-types.c (gfc_c_int_kind): Declare.
(gfc_init_kinds): Set it.
testsuite/
* gfortran.dg/g77/README: Update.
* gfortran.dg/g77/erfc.f: Copy from g77.f-torture.
* gfortran.dg/g77/intrinsic-unix-bessel.f: Ditto.
* gfortran.dg/g77/intrinsic-unix-erf.f: Ditto.
libgfortran/
* intrinsics/bessel.c: New file.
* intrinsics/erf.c: New file.
* Makefie.am: Add intrinsics/bessel.c and intrinsics/erf.c.
* configure.ac: Test for C99 Bessel and Error functions.
* Makefile.in: Regenerate.
* config.h.in: Regenerate.
* configure: Regenerate.
Co-Authored-By: Paul Brook <paul@codesourcery.com>
From-SVN: r86727
2004-08-29 17:58:16 +02:00
|
|
|
GFC_ISYM_ERF,
|
|
|
|
GFC_ISYM_ERFC,
|
check.c (gfc_check_second_sub, [...]): New functions.
* check.c (gfc_check_second_sub, gfc_check_irand, gfc_check_rand
gfc_check_srand, gfc_check_etime, gfc_check_etime_sub): New functions.
* gfortran.h (gfc_generic_isym_id): New symbols GFC_ISYM_ETIME,
GFC_ISYM_IRAND, GFC_ISYM_RAND, GFC_ISYM_SECOND.
* trans-intrinsic.c: Use symbols.
* intrinsic.c (add_sym_2s): New function.
* intrinsic.c: Add etime, dtime, irand, rand, second, srand.
* intrinsic.h: Function prototypes.
* iresolve.c (gfc_resolve_etime_sub, gfc_resolve_second_sub
gfc_resolve_srand): New functions.
libgfortran
* Makefile.am: Add rand.c and etime.c
* Makefile.in: Regenerated.
* aclocal.in: Regenerated.
* cpu_time.c (second_sub, second): New functions.
* rand.c (irand, rand, srand): New file.
* etime.c (etime_sub, etime): New file.
From-SVN: r83034
2004-06-12 19:34:47 +02:00
|
|
|
GFC_ISYM_ETIME,
|
2004-05-13 08:41:07 +02:00
|
|
|
GFC_ISYM_EXP,
|
|
|
|
GFC_ISYM_EXPONENT,
|
intrinsic.c (add_functions): Add ctime and fdate intrinsics.
* intrinsic.c (add_functions): Add ctime and fdate intrinsics.
(add_subroutines): Likewise.
* intrinsic.h: Prototypes for gfc_check_ctime,
gfc_check_ctime_sub, gfc_check_fdate_sub, gfc_resolve_ctime,
gfc_resolve_fdate, gfc_resolve_ctime_sub, gfc_resolve_fdate_sub.
* gfortran.h: Add GFC_ISYM_CTIME and GFC_ISYM_FDATE.
* iresolve.c (gfc_resolve_ctime, gfc_resolve_fdate,
gfc_resolve_ctime_sub, gfc_resolve_fdate_sub): New functions.
* trans-decl.c (gfc_build_intrinsic_function_decls): Add
gfor_fndecl_fdate and gfor_fndecl_ctime.
* check.c (gfc_check_ctime, gfc_check_ctime_sub,
gfc_check_fdate_sub): New functions.
* trans-intrinsic.c (gfc_conv_intrinsic_ctime,
gfc_conv_intrinsic_fdate): New functions.
(gfc_conv_intrinsic_function): Add cases for GFC_ISYM_CTIME
and GFC_ISYM_FDATE.
* intrinsic.texi: Documentation for the new CTIME and FDATE
intrinsics.
* trans.h: Declarations for gfor_fndecl_ctime and gfor_fndecl_fdate.
* intrinsics/ctime.c: New file.
* configure.ac: Add check for ctime.
* Makefile.am: Add ctime.c
* configure: Regenerate.
* config.h.in: Regenerate.
* Makefile.in: Regenerate.
From-SVN: r106558
2005-11-06 11:17:04 +01:00
|
|
|
GFC_ISYM_FDATE,
|
2004-05-13 08:41:07 +02:00
|
|
|
GFC_ISYM_FLOOR,
|
flush.c: New file.
2004-12-02 Steven G. Kargl <kargls@comcast.net>
Paul Brook <paul@codesourcery.com>
libgfortran/
* intrinsics/flush.c: New file.
* intrinsics/fnum.c: ditto
* intrinsics/stat.c: ditto
* io/io.h (unit_to_fd): Add prototype.
* io/unix.c (unit_to_fd): New function.
* configure.ac: Add test for members of struct stat. Check for
sys/types.h and sys/stat.h
* Makefile.am: Add intrinsics/{flush.c,fnum.c,stat.c}
* configure.in: Regenerate.
* config.h.in: Regenerate.
* Makefile.in: Regenerate.
fortran/
* check.c (gfc_check_flush, gfc_check_fnum): New functions.
(gfc_check_fstat, gfc_check_fstat_sub): New functions.
(gfc_check_stat, gfc_check_stat_sub): New functions.
* gfortran.h (GFC_ISYM_FNUM,GFC_ISYM_FSTAT,GFC_ISYM_STAT): New symbols
* intrinsic.c (add_functions,add_subroutines): Add flush, fnum,
fstat, and stat to intrinsics symbol tables.
* intrinsic.h (gfc_check_flush, gfc_resolve_stat_sub): Add prototypes.
(gfc_resolve_fstat_sub, gfc_resolve_stat): Ditto.
* iresolve.c (gfc_resolve_fnum, gfc_resolve_fstat): New functions.
(gfc_resolve_stat, gfc_resolve_flush): New functions.
(gfc_resolve_stat_sub,gfc_resolve_fstat_sub): New functions
* trans-intrinsic.c (gfc_conv_intrinsic_function): Add new intrinsics.
Co-Authored-By: Paul Brook <paul@codesourcery.com>
From-SVN: r91609
2004-12-02 05:10:26 +01:00
|
|
|
GFC_ISYM_FNUM,
|
2004-05-13 08:41:07 +02:00
|
|
|
GFC_ISYM_FRACTION,
|
flush.c: New file.
2004-12-02 Steven G. Kargl <kargls@comcast.net>
Paul Brook <paul@codesourcery.com>
libgfortran/
* intrinsics/flush.c: New file.
* intrinsics/fnum.c: ditto
* intrinsics/stat.c: ditto
* io/io.h (unit_to_fd): Add prototype.
* io/unix.c (unit_to_fd): New function.
* configure.ac: Add test for members of struct stat. Check for
sys/types.h and sys/stat.h
* Makefile.am: Add intrinsics/{flush.c,fnum.c,stat.c}
* configure.in: Regenerate.
* config.h.in: Regenerate.
* Makefile.in: Regenerate.
fortran/
* check.c (gfc_check_flush, gfc_check_fnum): New functions.
(gfc_check_fstat, gfc_check_fstat_sub): New functions.
(gfc_check_stat, gfc_check_stat_sub): New functions.
* gfortran.h (GFC_ISYM_FNUM,GFC_ISYM_FSTAT,GFC_ISYM_STAT): New symbols
* intrinsic.c (add_functions,add_subroutines): Add flush, fnum,
fstat, and stat to intrinsics symbol tables.
* intrinsic.h (gfc_check_flush, gfc_resolve_stat_sub): Add prototypes.
(gfc_resolve_fstat_sub, gfc_resolve_stat): Ditto.
* iresolve.c (gfc_resolve_fnum, gfc_resolve_fstat): New functions.
(gfc_resolve_stat, gfc_resolve_flush): New functions.
(gfc_resolve_stat_sub,gfc_resolve_fstat_sub): New functions
* trans-intrinsic.c (gfc_conv_intrinsic_function): Add new intrinsics.
Co-Authored-By: Paul Brook <paul@codesourcery.com>
From-SVN: r91609
2004-12-02 05:10:26 +01:00
|
|
|
GFC_ISYM_FSTAT,
|
2004-09-15 16:09:17 +02:00
|
|
|
GFC_ISYM_GETCWD,
|
2004-08-29 01:43:41 +02:00
|
|
|
GFC_ISYM_GETGID,
|
|
|
|
GFC_ISYM_GETPID,
|
|
|
|
GFC_ISYM_GETUID,
|
Makefile.am: Added new files.
* Makefile.am: Added new files.
* Makefile.in: Regenerate.
* aclocal.m4: Regenerate.
* configure.ac: add checks for signal.h headers file, as well as
following functions: chdir, strerror, getlogin, gethostname, kill,
link, symlink, perror, sleep, time.
* configure: Regenerate.
* intrinsics/chdir.c, intrinsics/gerror.c, intrinsics/getlog.c,
intrinsics/hostnm.c, intrinsics/ierrno.c, intrinsics/kill.c,
intrinsics/link.c, intrinsics/perror.c, intrinsics/rename.c,
intrinsics/sleep.c, intrinsics/symlnk.c, intrinsics/time.c: Newly
implementend g77 intrinsics.
* check.c (gfc_check_chdir, gfc_check_chdir_sub, gfc_check_kill,
gfc_check_kill_sub, gfc_check_link, gfc_check_link_sub,
gfc_check_symlnk, gfc_check_symlnk_sub, gfc_check_rename,
gfc_check_rename_sub, gfc_check_sleep_sub, gfc_check_gerror,
gfc_check_getlog, gfc_check_hostnm, gfc_check_hostnm_sub,
gfc_check_perror): new functions to check newly implemented
g77 intrinsics.
* gfortran.h: adding symbols for new intrinsics.
* intrinsic.c (add_functions): adding new intrinsics.
(add_subroutines): adding new intrinsics.
* intrinsic.h: prototype for all checking and resolving
functions.
* iresolve.c (gfc_resolve_chdir, gfc_resolve_chdir_sub,
gfc_resolve_hostnm, gfc_resolve_ierrno, gfc_resolve_kill,
gfc_resolve_link, gfc_resolve_rename, gfc_resolve_symlnk,
gfc_resolve_time, gfc_resolve_time8, gfc_resolve_rename_sub,
gfc_resolve_kill_sub, gfc_resolve_link_sub,
gfc_resolve_symlnk_sub, gfc_resolve_sleep_sub,
gfc_resolve_gerror, gfc_resolve_getlog, gfc_resolve_hostnm_sub,
gfc_resolve_perror): new functions to resolve intrinsics.
* trans-intrinsic.c (gfc_conv_intrinsic_function): add case
for new symbols.
* g77_intrinsics_funcs.f: New test.
* g77_intrinsics_sub.f: New test.
From-SVN: r96893
2005-03-22 23:08:22 +01:00
|
|
|
GFC_ISYM_HOSTNM,
|
2004-05-13 08:41:07 +02:00
|
|
|
GFC_ISYM_IACHAR,
|
|
|
|
GFC_ISYM_IAND,
|
2004-07-04 19:00:12 +02:00
|
|
|
GFC_ISYM_IARGC,
|
2004-05-13 08:41:07 +02:00
|
|
|
GFC_ISYM_IBCLR,
|
|
|
|
GFC_ISYM_IBITS,
|
|
|
|
GFC_ISYM_IBSET,
|
|
|
|
GFC_ISYM_ICHAR,
|
|
|
|
GFC_ISYM_IEOR,
|
Makefile.am: Added new files.
* Makefile.am: Added new files.
* Makefile.in: Regenerate.
* aclocal.m4: Regenerate.
* configure.ac: add checks for signal.h headers file, as well as
following functions: chdir, strerror, getlogin, gethostname, kill,
link, symlink, perror, sleep, time.
* configure: Regenerate.
* intrinsics/chdir.c, intrinsics/gerror.c, intrinsics/getlog.c,
intrinsics/hostnm.c, intrinsics/ierrno.c, intrinsics/kill.c,
intrinsics/link.c, intrinsics/perror.c, intrinsics/rename.c,
intrinsics/sleep.c, intrinsics/symlnk.c, intrinsics/time.c: Newly
implementend g77 intrinsics.
* check.c (gfc_check_chdir, gfc_check_chdir_sub, gfc_check_kill,
gfc_check_kill_sub, gfc_check_link, gfc_check_link_sub,
gfc_check_symlnk, gfc_check_symlnk_sub, gfc_check_rename,
gfc_check_rename_sub, gfc_check_sleep_sub, gfc_check_gerror,
gfc_check_getlog, gfc_check_hostnm, gfc_check_hostnm_sub,
gfc_check_perror): new functions to check newly implemented
g77 intrinsics.
* gfortran.h: adding symbols for new intrinsics.
* intrinsic.c (add_functions): adding new intrinsics.
(add_subroutines): adding new intrinsics.
* intrinsic.h: prototype for all checking and resolving
functions.
* iresolve.c (gfc_resolve_chdir, gfc_resolve_chdir_sub,
gfc_resolve_hostnm, gfc_resolve_ierrno, gfc_resolve_kill,
gfc_resolve_link, gfc_resolve_rename, gfc_resolve_symlnk,
gfc_resolve_time, gfc_resolve_time8, gfc_resolve_rename_sub,
gfc_resolve_kill_sub, gfc_resolve_link_sub,
gfc_resolve_symlnk_sub, gfc_resolve_sleep_sub,
gfc_resolve_gerror, gfc_resolve_getlog, gfc_resolve_hostnm_sub,
gfc_resolve_perror): new functions to resolve intrinsics.
* trans-intrinsic.c (gfc_conv_intrinsic_function): add case
for new symbols.
* g77_intrinsics_funcs.f: New test.
* g77_intrinsics_sub.f: New test.
From-SVN: r96893
2005-03-22 23:08:22 +01:00
|
|
|
GFC_ISYM_IERRNO,
|
2004-05-13 08:41:07 +02:00
|
|
|
GFC_ISYM_INDEX,
|
|
|
|
GFC_ISYM_INT,
|
|
|
|
GFC_ISYM_IOR,
|
check.c (gfc_check_second_sub, [...]): New functions.
* check.c (gfc_check_second_sub, gfc_check_irand, gfc_check_rand
gfc_check_srand, gfc_check_etime, gfc_check_etime_sub): New functions.
* gfortran.h (gfc_generic_isym_id): New symbols GFC_ISYM_ETIME,
GFC_ISYM_IRAND, GFC_ISYM_RAND, GFC_ISYM_SECOND.
* trans-intrinsic.c: Use symbols.
* intrinsic.c (add_sym_2s): New function.
* intrinsic.c: Add etime, dtime, irand, rand, second, srand.
* intrinsic.h: Function prototypes.
* iresolve.c (gfc_resolve_etime_sub, gfc_resolve_second_sub
gfc_resolve_srand): New functions.
libgfortran
* Makefile.am: Add rand.c and etime.c
* Makefile.in: Regenerated.
* aclocal.in: Regenerated.
* cpu_time.c (second_sub, second): New functions.
* rand.c (irand, rand, srand): New file.
* etime.c (etime_sub, etime): New file.
From-SVN: r83034
2004-06-12 19:34:47 +02:00
|
|
|
GFC_ISYM_IRAND,
|
2005-08-09 19:33:17 +02:00
|
|
|
GFC_ISYM_ISATTY,
|
2004-05-13 08:41:07 +02:00
|
|
|
GFC_ISYM_ISHFT,
|
|
|
|
GFC_ISYM_ISHFTC,
|
Makefile.am: Added new files.
* Makefile.am: Added new files.
* Makefile.in: Regenerate.
* aclocal.m4: Regenerate.
* configure.ac: add checks for signal.h headers file, as well as
following functions: chdir, strerror, getlogin, gethostname, kill,
link, symlink, perror, sleep, time.
* configure: Regenerate.
* intrinsics/chdir.c, intrinsics/gerror.c, intrinsics/getlog.c,
intrinsics/hostnm.c, intrinsics/ierrno.c, intrinsics/kill.c,
intrinsics/link.c, intrinsics/perror.c, intrinsics/rename.c,
intrinsics/sleep.c, intrinsics/symlnk.c, intrinsics/time.c: Newly
implementend g77 intrinsics.
* check.c (gfc_check_chdir, gfc_check_chdir_sub, gfc_check_kill,
gfc_check_kill_sub, gfc_check_link, gfc_check_link_sub,
gfc_check_symlnk, gfc_check_symlnk_sub, gfc_check_rename,
gfc_check_rename_sub, gfc_check_sleep_sub, gfc_check_gerror,
gfc_check_getlog, gfc_check_hostnm, gfc_check_hostnm_sub,
gfc_check_perror): new functions to check newly implemented
g77 intrinsics.
* gfortran.h: adding symbols for new intrinsics.
* intrinsic.c (add_functions): adding new intrinsics.
(add_subroutines): adding new intrinsics.
* intrinsic.h: prototype for all checking and resolving
functions.
* iresolve.c (gfc_resolve_chdir, gfc_resolve_chdir_sub,
gfc_resolve_hostnm, gfc_resolve_ierrno, gfc_resolve_kill,
gfc_resolve_link, gfc_resolve_rename, gfc_resolve_symlnk,
gfc_resolve_time, gfc_resolve_time8, gfc_resolve_rename_sub,
gfc_resolve_kill_sub, gfc_resolve_link_sub,
gfc_resolve_symlnk_sub, gfc_resolve_sleep_sub,
gfc_resolve_gerror, gfc_resolve_getlog, gfc_resolve_hostnm_sub,
gfc_resolve_perror): new functions to resolve intrinsics.
* trans-intrinsic.c (gfc_conv_intrinsic_function): add case
for new symbols.
* g77_intrinsics_funcs.f: New test.
* g77_intrinsics_sub.f: New test.
From-SVN: r96893
2005-03-22 23:08:22 +01:00
|
|
|
GFC_ISYM_KILL,
|
2004-05-13 08:41:07 +02:00
|
|
|
GFC_ISYM_LBOUND,
|
|
|
|
GFC_ISYM_LEN,
|
|
|
|
GFC_ISYM_LEN_TRIM,
|
Makefile.am: Added new files.
* Makefile.am: Added new files.
* Makefile.in: Regenerate.
* aclocal.m4: Regenerate.
* configure.ac: add checks for signal.h headers file, as well as
following functions: chdir, strerror, getlogin, gethostname, kill,
link, symlink, perror, sleep, time.
* configure: Regenerate.
* intrinsics/chdir.c, intrinsics/gerror.c, intrinsics/getlog.c,
intrinsics/hostnm.c, intrinsics/ierrno.c, intrinsics/kill.c,
intrinsics/link.c, intrinsics/perror.c, intrinsics/rename.c,
intrinsics/sleep.c, intrinsics/symlnk.c, intrinsics/time.c: Newly
implementend g77 intrinsics.
* check.c (gfc_check_chdir, gfc_check_chdir_sub, gfc_check_kill,
gfc_check_kill_sub, gfc_check_link, gfc_check_link_sub,
gfc_check_symlnk, gfc_check_symlnk_sub, gfc_check_rename,
gfc_check_rename_sub, gfc_check_sleep_sub, gfc_check_gerror,
gfc_check_getlog, gfc_check_hostnm, gfc_check_hostnm_sub,
gfc_check_perror): new functions to check newly implemented
g77 intrinsics.
* gfortran.h: adding symbols for new intrinsics.
* intrinsic.c (add_functions): adding new intrinsics.
(add_subroutines): adding new intrinsics.
* intrinsic.h: prototype for all checking and resolving
functions.
* iresolve.c (gfc_resolve_chdir, gfc_resolve_chdir_sub,
gfc_resolve_hostnm, gfc_resolve_ierrno, gfc_resolve_kill,
gfc_resolve_link, gfc_resolve_rename, gfc_resolve_symlnk,
gfc_resolve_time, gfc_resolve_time8, gfc_resolve_rename_sub,
gfc_resolve_kill_sub, gfc_resolve_link_sub,
gfc_resolve_symlnk_sub, gfc_resolve_sleep_sub,
gfc_resolve_gerror, gfc_resolve_getlog, gfc_resolve_hostnm_sub,
gfc_resolve_perror): new functions to resolve intrinsics.
* trans-intrinsic.c (gfc_conv_intrinsic_function): add case
for new symbols.
* g77_intrinsics_funcs.f: New test.
* g77_intrinsics_sub.f: New test.
From-SVN: r96893
2005-03-22 23:08:22 +01:00
|
|
|
GFC_ISYM_LINK,
|
2004-05-13 08:41:07 +02:00
|
|
|
GFC_ISYM_LGE,
|
|
|
|
GFC_ISYM_LGT,
|
|
|
|
GFC_ISYM_LLE,
|
|
|
|
GFC_ISYM_LLT,
|
|
|
|
GFC_ISYM_LOG,
|
2005-10-24 21:28:18 +02:00
|
|
|
GFC_ISYM_LOC,
|
2004-05-13 08:41:07 +02:00
|
|
|
GFC_ISYM_LOG10,
|
|
|
|
GFC_ISYM_LOGICAL,
|
2005-10-30 13:17:48 +01:00
|
|
|
GFC_ISYM_MALLOC,
|
2004-05-13 08:41:07 +02:00
|
|
|
GFC_ISYM_MATMUL,
|
|
|
|
GFC_ISYM_MAX,
|
|
|
|
GFC_ISYM_MAXLOC,
|
|
|
|
GFC_ISYM_MAXVAL,
|
|
|
|
GFC_ISYM_MERGE,
|
|
|
|
GFC_ISYM_MIN,
|
|
|
|
GFC_ISYM_MINLOC,
|
|
|
|
GFC_ISYM_MINVAL,
|
|
|
|
GFC_ISYM_MOD,
|
|
|
|
GFC_ISYM_MODULO,
|
|
|
|
GFC_ISYM_NEAREST,
|
|
|
|
GFC_ISYM_NINT,
|
|
|
|
GFC_ISYM_NOT,
|
|
|
|
GFC_ISYM_PACK,
|
|
|
|
GFC_ISYM_PRESENT,
|
|
|
|
GFC_ISYM_PRODUCT,
|
check.c (gfc_check_second_sub, [...]): New functions.
* check.c (gfc_check_second_sub, gfc_check_irand, gfc_check_rand
gfc_check_srand, gfc_check_etime, gfc_check_etime_sub): New functions.
* gfortran.h (gfc_generic_isym_id): New symbols GFC_ISYM_ETIME,
GFC_ISYM_IRAND, GFC_ISYM_RAND, GFC_ISYM_SECOND.
* trans-intrinsic.c: Use symbols.
* intrinsic.c (add_sym_2s): New function.
* intrinsic.c: Add etime, dtime, irand, rand, second, srand.
* intrinsic.h: Function prototypes.
* iresolve.c (gfc_resolve_etime_sub, gfc_resolve_second_sub
gfc_resolve_srand): New functions.
libgfortran
* Makefile.am: Add rand.c and etime.c
* Makefile.in: Regenerated.
* aclocal.in: Regenerated.
* cpu_time.c (second_sub, second): New functions.
* rand.c (irand, rand, srand): New file.
* etime.c (etime_sub, etime): New file.
From-SVN: r83034
2004-06-12 19:34:47 +02:00
|
|
|
GFC_ISYM_RAND,
|
2004-05-13 08:41:07 +02:00
|
|
|
GFC_ISYM_REAL,
|
Makefile.am: Added new files.
* Makefile.am: Added new files.
* Makefile.in: Regenerate.
* aclocal.m4: Regenerate.
* configure.ac: add checks for signal.h headers file, as well as
following functions: chdir, strerror, getlogin, gethostname, kill,
link, symlink, perror, sleep, time.
* configure: Regenerate.
* intrinsics/chdir.c, intrinsics/gerror.c, intrinsics/getlog.c,
intrinsics/hostnm.c, intrinsics/ierrno.c, intrinsics/kill.c,
intrinsics/link.c, intrinsics/perror.c, intrinsics/rename.c,
intrinsics/sleep.c, intrinsics/symlnk.c, intrinsics/time.c: Newly
implementend g77 intrinsics.
* check.c (gfc_check_chdir, gfc_check_chdir_sub, gfc_check_kill,
gfc_check_kill_sub, gfc_check_link, gfc_check_link_sub,
gfc_check_symlnk, gfc_check_symlnk_sub, gfc_check_rename,
gfc_check_rename_sub, gfc_check_sleep_sub, gfc_check_gerror,
gfc_check_getlog, gfc_check_hostnm, gfc_check_hostnm_sub,
gfc_check_perror): new functions to check newly implemented
g77 intrinsics.
* gfortran.h: adding symbols for new intrinsics.
* intrinsic.c (add_functions): adding new intrinsics.
(add_subroutines): adding new intrinsics.
* intrinsic.h: prototype for all checking and resolving
functions.
* iresolve.c (gfc_resolve_chdir, gfc_resolve_chdir_sub,
gfc_resolve_hostnm, gfc_resolve_ierrno, gfc_resolve_kill,
gfc_resolve_link, gfc_resolve_rename, gfc_resolve_symlnk,
gfc_resolve_time, gfc_resolve_time8, gfc_resolve_rename_sub,
gfc_resolve_kill_sub, gfc_resolve_link_sub,
gfc_resolve_symlnk_sub, gfc_resolve_sleep_sub,
gfc_resolve_gerror, gfc_resolve_getlog, gfc_resolve_hostnm_sub,
gfc_resolve_perror): new functions to resolve intrinsics.
* trans-intrinsic.c (gfc_conv_intrinsic_function): add case
for new symbols.
* g77_intrinsics_funcs.f: New test.
* g77_intrinsics_sub.f: New test.
From-SVN: r96893
2005-03-22 23:08:22 +01:00
|
|
|
GFC_ISYM_RENAME,
|
2004-05-13 08:41:07 +02:00
|
|
|
GFC_ISYM_REPEAT,
|
|
|
|
GFC_ISYM_RESHAPE,
|
|
|
|
GFC_ISYM_RRSPACING,
|
|
|
|
GFC_ISYM_SCALE,
|
|
|
|
GFC_ISYM_SCAN,
|
check.c (gfc_check_second_sub, [...]): New functions.
* check.c (gfc_check_second_sub, gfc_check_irand, gfc_check_rand
gfc_check_srand, gfc_check_etime, gfc_check_etime_sub): New functions.
* gfortran.h (gfc_generic_isym_id): New symbols GFC_ISYM_ETIME,
GFC_ISYM_IRAND, GFC_ISYM_RAND, GFC_ISYM_SECOND.
* trans-intrinsic.c: Use symbols.
* intrinsic.c (add_sym_2s): New function.
* intrinsic.c: Add etime, dtime, irand, rand, second, srand.
* intrinsic.h: Function prototypes.
* iresolve.c (gfc_resolve_etime_sub, gfc_resolve_second_sub
gfc_resolve_srand): New functions.
libgfortran
* Makefile.am: Add rand.c and etime.c
* Makefile.in: Regenerated.
* aclocal.in: Regenerated.
* cpu_time.c (second_sub, second): New functions.
* rand.c (irand, rand, srand): New file.
* etime.c (etime_sub, etime): New file.
From-SVN: r83034
2004-06-12 19:34:47 +02:00
|
|
|
GFC_ISYM_SECOND,
|
2005-11-01 06:53:29 +01:00
|
|
|
GFC_ISYM_SECNDS,
|
2004-05-13 08:41:07 +02:00
|
|
|
GFC_ISYM_SET_EXPONENT,
|
|
|
|
GFC_ISYM_SHAPE,
|
|
|
|
GFC_ISYM_SI_KIND,
|
|
|
|
GFC_ISYM_SIGN,
|
check.c (gfc_check_alarm_sub, [...]): New functions.
* check.c (gfc_check_alarm_sub, gfc_check_signal,
gfc_check_signal_sub): New functions.
* gfortran.h (gfc_generic_isym_id): Add GFC_ISYM_SIGNAL.
* intrinsic.c (add_functions): Add signal intrinsic.
(add_subroutines): Add signal and alarm intrinsics.
* intrinsic.texi: Document the new intrinsics.
* iresolve.c (gfc_resolve_signal, gfc_resolve_alarm_sub,
gfc_resolve_signal_sub): New functions.
* trans-intrinsic.c (gfc_conv_intrinsic_function): Add case
for GFC_ISYM_SIGNAL.
* intrinsic.h: Add prototypes for gfc_check_alarm_sub,
gfc_check_signal, gfc_check_signal_sub, gfc_resolve_signal,
gfc_resolve_alarm_sub, gfc_resolve_signal_sub.
* Makefile.am (intrinsics): Add signal.c.
* Makefile.in: Regenerate.
* configure.ac: Checks for signal and alarm.
* config.h.in: Regenerate.
* configure: Regenerate.
* intrinsics/signal.c: New file for SIGNAL and ALARM intrinsics.
From-SVN: r105967
2005-10-28 23:16:17 +02:00
|
|
|
GFC_ISYM_SIGNAL,
|
2004-05-13 08:41:07 +02:00
|
|
|
GFC_ISYM_SIN,
|
|
|
|
GFC_ISYM_SINH,
|
|
|
|
GFC_ISYM_SIZE,
|
|
|
|
GFC_ISYM_SPACING,
|
|
|
|
GFC_ISYM_SPREAD,
|
|
|
|
GFC_ISYM_SQRT,
|
|
|
|
GFC_ISYM_SR_KIND,
|
flush.c: New file.
2004-12-02 Steven G. Kargl <kargls@comcast.net>
Paul Brook <paul@codesourcery.com>
libgfortran/
* intrinsics/flush.c: New file.
* intrinsics/fnum.c: ditto
* intrinsics/stat.c: ditto
* io/io.h (unit_to_fd): Add prototype.
* io/unix.c (unit_to_fd): New function.
* configure.ac: Add test for members of struct stat. Check for
sys/types.h and sys/stat.h
* Makefile.am: Add intrinsics/{flush.c,fnum.c,stat.c}
* configure.in: Regenerate.
* config.h.in: Regenerate.
* Makefile.in: Regenerate.
fortran/
* check.c (gfc_check_flush, gfc_check_fnum): New functions.
(gfc_check_fstat, gfc_check_fstat_sub): New functions.
(gfc_check_stat, gfc_check_stat_sub): New functions.
* gfortran.h (GFC_ISYM_FNUM,GFC_ISYM_FSTAT,GFC_ISYM_STAT): New symbols
* intrinsic.c (add_functions,add_subroutines): Add flush, fnum,
fstat, and stat to intrinsics symbol tables.
* intrinsic.h (gfc_check_flush, gfc_resolve_stat_sub): Add prototypes.
(gfc_resolve_fstat_sub, gfc_resolve_stat): Ditto.
* iresolve.c (gfc_resolve_fnum, gfc_resolve_fstat): New functions.
(gfc_resolve_stat, gfc_resolve_flush): New functions.
(gfc_resolve_stat_sub,gfc_resolve_fstat_sub): New functions
* trans-intrinsic.c (gfc_conv_intrinsic_function): Add new intrinsics.
Co-Authored-By: Paul Brook <paul@codesourcery.com>
From-SVN: r91609
2004-12-02 05:10:26 +01:00
|
|
|
GFC_ISYM_STAT,
|
2004-05-13 08:41:07 +02:00
|
|
|
GFC_ISYM_SUM,
|
Makefile.am: Added new files.
* Makefile.am: Added new files.
* Makefile.in: Regenerate.
* aclocal.m4: Regenerate.
* configure.ac: add checks for signal.h headers file, as well as
following functions: chdir, strerror, getlogin, gethostname, kill,
link, symlink, perror, sleep, time.
* configure: Regenerate.
* intrinsics/chdir.c, intrinsics/gerror.c, intrinsics/getlog.c,
intrinsics/hostnm.c, intrinsics/ierrno.c, intrinsics/kill.c,
intrinsics/link.c, intrinsics/perror.c, intrinsics/rename.c,
intrinsics/sleep.c, intrinsics/symlnk.c, intrinsics/time.c: Newly
implementend g77 intrinsics.
* check.c (gfc_check_chdir, gfc_check_chdir_sub, gfc_check_kill,
gfc_check_kill_sub, gfc_check_link, gfc_check_link_sub,
gfc_check_symlnk, gfc_check_symlnk_sub, gfc_check_rename,
gfc_check_rename_sub, gfc_check_sleep_sub, gfc_check_gerror,
gfc_check_getlog, gfc_check_hostnm, gfc_check_hostnm_sub,
gfc_check_perror): new functions to check newly implemented
g77 intrinsics.
* gfortran.h: adding symbols for new intrinsics.
* intrinsic.c (add_functions): adding new intrinsics.
(add_subroutines): adding new intrinsics.
* intrinsic.h: prototype for all checking and resolving
functions.
* iresolve.c (gfc_resolve_chdir, gfc_resolve_chdir_sub,
gfc_resolve_hostnm, gfc_resolve_ierrno, gfc_resolve_kill,
gfc_resolve_link, gfc_resolve_rename, gfc_resolve_symlnk,
gfc_resolve_time, gfc_resolve_time8, gfc_resolve_rename_sub,
gfc_resolve_kill_sub, gfc_resolve_link_sub,
gfc_resolve_symlnk_sub, gfc_resolve_sleep_sub,
gfc_resolve_gerror, gfc_resolve_getlog, gfc_resolve_hostnm_sub,
gfc_resolve_perror): new functions to resolve intrinsics.
* trans-intrinsic.c (gfc_conv_intrinsic_function): add case
for new symbols.
* g77_intrinsics_funcs.f: New test.
* g77_intrinsics_sub.f: New test.
From-SVN: r96893
2005-03-22 23:08:22 +01:00
|
|
|
GFC_ISYM_SYMLNK,
|
2004-10-04 23:30:32 +02:00
|
|
|
GFC_ISYM_SYSTEM,
|
2004-05-13 08:41:07 +02:00
|
|
|
GFC_ISYM_TAN,
|
|
|
|
GFC_ISYM_TANH,
|
Makefile.am: Added new files.
* Makefile.am: Added new files.
* Makefile.in: Regenerate.
* aclocal.m4: Regenerate.
* configure.ac: add checks for signal.h headers file, as well as
following functions: chdir, strerror, getlogin, gethostname, kill,
link, symlink, perror, sleep, time.
* configure: Regenerate.
* intrinsics/chdir.c, intrinsics/gerror.c, intrinsics/getlog.c,
intrinsics/hostnm.c, intrinsics/ierrno.c, intrinsics/kill.c,
intrinsics/link.c, intrinsics/perror.c, intrinsics/rename.c,
intrinsics/sleep.c, intrinsics/symlnk.c, intrinsics/time.c: Newly
implementend g77 intrinsics.
* check.c (gfc_check_chdir, gfc_check_chdir_sub, gfc_check_kill,
gfc_check_kill_sub, gfc_check_link, gfc_check_link_sub,
gfc_check_symlnk, gfc_check_symlnk_sub, gfc_check_rename,
gfc_check_rename_sub, gfc_check_sleep_sub, gfc_check_gerror,
gfc_check_getlog, gfc_check_hostnm, gfc_check_hostnm_sub,
gfc_check_perror): new functions to check newly implemented
g77 intrinsics.
* gfortran.h: adding symbols for new intrinsics.
* intrinsic.c (add_functions): adding new intrinsics.
(add_subroutines): adding new intrinsics.
* intrinsic.h: prototype for all checking and resolving
functions.
* iresolve.c (gfc_resolve_chdir, gfc_resolve_chdir_sub,
gfc_resolve_hostnm, gfc_resolve_ierrno, gfc_resolve_kill,
gfc_resolve_link, gfc_resolve_rename, gfc_resolve_symlnk,
gfc_resolve_time, gfc_resolve_time8, gfc_resolve_rename_sub,
gfc_resolve_kill_sub, gfc_resolve_link_sub,
gfc_resolve_symlnk_sub, gfc_resolve_sleep_sub,
gfc_resolve_gerror, gfc_resolve_getlog, gfc_resolve_hostnm_sub,
gfc_resolve_perror): new functions to resolve intrinsics.
* trans-intrinsic.c (gfc_conv_intrinsic_function): add case
for new symbols.
* g77_intrinsics_funcs.f: New test.
* g77_intrinsics_sub.f: New test.
From-SVN: r96893
2005-03-22 23:08:22 +01:00
|
|
|
GFC_ISYM_TIME,
|
|
|
|
GFC_ISYM_TIME8,
|
2004-05-13 08:41:07 +02:00
|
|
|
GFC_ISYM_TRANSFER,
|
|
|
|
GFC_ISYM_TRANSPOSE,
|
|
|
|
GFC_ISYM_TRIM,
|
2005-11-05 09:34:07 +01:00
|
|
|
GFC_ISYM_TTYNAM,
|
2004-05-13 08:41:07 +02:00
|
|
|
GFC_ISYM_UBOUND,
|
check.c (gfc_check_getcwd_sub): Fix seg fault.
* check.c (gfc_check_getcwd_sub): Fix seg fault.
* check.c (gfc_check_exit,gfc_check_umask,gfc_check_umask_sub,
gfc_check_unlink,gfc_check_unlink_sub): New functions
* gfortran.h (GFC_ISYM_UMASK,GFC_ISYM_UNLINK): New symbols
* intrinsic.c (add_functions,add_subroutines): Add umask, unlink,
exit to intrinsics symbol tables.
* intrinsic.h (gfc_check_umask,gfc_check_unlink,gfc_check_exit,
gfc_check_umask_sub,gfc_check_unlink_sub,gfc_resolve_umask,
gfc_resolve_unlink,gfc_resolve_exit,gfc_resolve_umask_sub,
gfc_resolve_unlink_sub): Add and sort prototypes.
* iresolve.c (gfc_resolve_umask,gfc_resolve_unlink,gfc_resolve_exit,
gfc_resolve_umask_sub,gfc_resolve_unlink_sub): New functions
* trans-intrinsic.c (gfc_conv_intrinsic_function): Use symbols
libgfortran/
* Makefile.am: Add intrinsics/{umask.c,unlink.c,exit.c}
* Makefile.in: Regenerated
* intrinsics/umask.c: New file
* intrinsics/unlink.c: ditto
* intrinsics/exit.c: ditto
From-SVN: r90949
2004-11-20 02:44:49 +01:00
|
|
|
GFC_ISYM_UMASK,
|
|
|
|
GFC_ISYM_UNLINK,
|
2004-05-13 08:41:07 +02:00
|
|
|
GFC_ISYM_UNPACK,
|
|
|
|
GFC_ISYM_VERIFY,
|
|
|
|
GFC_ISYM_CONVERSION
|
|
|
|
};
|
|
|
|
typedef enum gfc_generic_isym_id gfc_generic_isym_id;
|
|
|
|
|
|
|
|
/************************* Structures *****************************/
|
|
|
|
|
|
|
|
/* Symbol attribute structure. */
|
|
|
|
typedef struct
|
|
|
|
{
|
|
|
|
/* Variable attributes. */
|
|
|
|
unsigned allocatable:1, dimension:1, external:1, intrinsic:1,
|
|
|
|
optional:1, pointer:1, save:1, target:1,
|
2004-08-17 17:34:12 +02:00
|
|
|
dummy:1, result:1, assign:1;
|
2004-05-13 08:41:07 +02:00
|
|
|
|
|
|
|
unsigned data:1, /* Symbol is named in a DATA statement. */
|
|
|
|
use_assoc:1; /* Symbol has been use-associated. */
|
|
|
|
|
re PR fortran/18878 ([4.0 only] erronous error message on vaild USE statement)
2005-09-09 Paul Thomas <pault@gcc.gnu.org>
PR fortran/18878
* module.c (find_use_name_n): Based on original
find_use_name. Either counts number of use names for a
given real name or returns use name n.
(find_use_name, number_use_names): Interfaces to the
function find_use_name_n.
(read_module): Add the logic and calls to these functions,
so that mutiple reuses of the same real name are loaded.
2005-09-09 Paul Thomas <pault@gcc.gnu.org>
PR fortran/22304
PR fortran/23270
PR fortran/18870
PR fortran/16511
PR fortran/17917
* gfortran.h: Move definition of BLANK_COMMON_NAME from trans-
common.c so that it is accessible to module.c. Add common_head
field to gfc_symbol structure. Add field for the equivalence
name AND new attr field, in_equivalence.
* match.c (gfc_match_common, gfc_match_equivalence): In loops
that flag common block equivalences, emit an error if the
common blocks are different, using sym->common_head as the
common block identifier. Ensure that symbols that are equivalence
associated with a common block are marked as being in_common.
* module.c (write_blank_common): New.
(write_common): Use unmangled common block name.
(load_equiv): New function ported from g95.
(read_module): Call load_equiv.
(write_equiv): New function ported from g95. Correct
string referencing for gfc functions. Give module
equivalences a unique name.
(write_module): Call write_equiv and write_blank_common.
* primary.c (match_variable) Old gfc_match_variable, made
static and third argument provided to indicate if parent
namespace to be visited or not.
(gfc_match_variable) New. Interface to match_variable.
(gfc_match_equiv_variable) New. Interface to match_variable.
* trans-common.c (finish_equivalences): Provide the call
to create_common with a gfc_common_header so that
module equivalences are made external, rather than local.
(find_equivalences): Ensure that all members in common block
equivalences are marked as used. This prevents the subsequent
call to this function from making local unions.
* trans-decl.c (gfc_generate_function_code): Move the call to
gfc_generate_contained_functions to after the call to
gfc_trans_common so the use-associated, contained common
blocks produce the correct references.
(gfc_create_module_variable): Return for equivalenced symbols
with existing backend declaration.
2005-09-09 Paul Thomas <pault@gcc.gnu.org>
PR fortran/18878
* gfortran.dg/module_double_reuse.f90: New.
2005-09-09 Paul Thomas <pault@gcc.gnu.org>
PR fortran/23270
PR fortran/22304
PR fortran/18870
PR fortran/17917
PR fortran/16511
* gfortran.dg/common_equivalence_1.f: New.
* gfortran.dg/common_equivalence_2.f: New.
* gfortran.dg/common_equivalence_3.f: New.
* gfortran.dg/contained_equivalence_1.f90: New.
* gfortran.dg/module_blank_common.f90: New.
* gfortran.dg/module_commons_1.f90: New.
* gfortran.dg/module_equivalence_1.f90: New.
* gfortran.dg/nested_modules_1.f90: New.
* gfortran.dg/g77/19990905-0.f: Remove XFAIL, rearrange
equivalences and add comment to connect the test with
the PR.
From-SVN: r104060
2005-09-09 02:23:09 +02:00
|
|
|
unsigned in_namelist:1, in_common:1, in_equivalence:1;
|
2004-05-13 08:41:07 +02:00
|
|
|
unsigned function:1, subroutine:1, generic:1;
|
2005-02-23 21:56:58 +01:00
|
|
|
unsigned implicit_type:1; /* Type defined via implicit rules. */
|
|
|
|
unsigned untyped:1; /* No implicit type could be found. */
|
2004-05-13 08:41:07 +02:00
|
|
|
|
|
|
|
/* Function/subroutine attributes */
|
|
|
|
unsigned sequence:1, elemental:1, pure:1, recursive:1;
|
|
|
|
unsigned unmaskable:1, masked:1, contained:1;
|
|
|
|
|
2005-08-24 22:04:20 +02:00
|
|
|
/* This is set if the subroutine doesn't return. Currently, this
|
|
|
|
is only possible for intrinsic subroutines. */
|
|
|
|
unsigned noreturn:1;
|
|
|
|
|
2004-08-17 17:34:12 +02:00
|
|
|
/* Set if this procedure is an alternate entry point. These procedures
|
|
|
|
don't have any code associated, and the backend will turn them into
|
|
|
|
thunks to the master function. */
|
|
|
|
unsigned entry:1;
|
2005-08-11 15:50:13 +02:00
|
|
|
|
2004-08-17 17:34:12 +02:00
|
|
|
/* Set if this is the master function for a procedure with multiple
|
|
|
|
entry points. */
|
|
|
|
unsigned entry_master:1;
|
2005-08-11 15:50:13 +02:00
|
|
|
|
2005-04-29 17:31:39 +02:00
|
|
|
/* Set if this is the master function for a function with multiple
|
|
|
|
entry points where characteristics of the entry points differ. */
|
|
|
|
unsigned mixed_entry_master:1;
|
2004-08-17 17:34:12 +02:00
|
|
|
|
2004-05-13 08:41:07 +02:00
|
|
|
/* Set if a function must always be referenced by an explicit interface. */
|
|
|
|
unsigned always_explicit:1;
|
|
|
|
|
|
|
|
/* Set if the symbol has been referenced in an expression. No further
|
|
|
|
modification of type or type parameters is permitted. */
|
|
|
|
unsigned referenced:1;
|
|
|
|
|
2005-08-11 15:50:13 +02:00
|
|
|
/* Set if the is the symbol for the main program. This is the least
|
|
|
|
cumbersome way to communicate this function property without
|
|
|
|
strcmp'ing with __MAIN everywhere. */
|
|
|
|
unsigned is_main_program:1;
|
|
|
|
|
2004-05-13 08:41:07 +02:00
|
|
|
/* Mutually exclusive multibit attributes. */
|
2005-03-12 03:06:20 +01:00
|
|
|
ENUM_BITFIELD (gfc_access) access:2;
|
|
|
|
ENUM_BITFIELD (sym_intent) intent:2;
|
|
|
|
ENUM_BITFIELD (sym_flavor) flavor:4;
|
|
|
|
ENUM_BITFIELD (ifsrc) if_source:2;
|
2004-05-13 08:41:07 +02:00
|
|
|
|
2005-03-12 03:06:20 +01:00
|
|
|
ENUM_BITFIELD (procedure_type) proc:3;
|
2005-10-24 21:28:18 +02:00
|
|
|
|
|
|
|
/* Special attributes for Cray pointers, pointees. */
|
|
|
|
unsigned cray_pointer:1, cray_pointee:1;
|
2004-05-13 08:41:07 +02:00
|
|
|
|
|
|
|
}
|
|
|
|
symbol_attribute;
|
|
|
|
|
|
|
|
|
re PR fortran/13702 (When preprocessing Fortran files (.F, .F90 and .F95) cpp should emit line numbers.)
PR fortran/13702
(Port from g95)
* gfortran.h (gfc_linebuf): New typedef.
(linebuf): Remove.
(gfc_file): Revamped, use new gfc_linebuf.
(locus): Revamped, use new types.
(gfc_current_file): Remove.
(gfc_current_form, gfc_source_file): New global variables.
* match.c (gfc_match_space, gfc_match_strings): Use
gfc_current_form to find source form.
* module.c (gfc_dump_module): Use gfc_source_file when printing
module header.
* error.c (show_locus, show_loci) Use new data structures to print
locus.
* scanner.c (first_file, first_duplicated_file, gfc_current_file):
Remove.
(file_head, current_file, gfc_current_form, line_head, line_tail,
gfc_current_locus1, gfc_source_file): New global variables.
(gfc_scanner_init1): Set new global variables.
(gfc_scanner_done1): Free new data structures.
(gfc_current_locus): Return pointer to gfc_current_locus1.
(gfc_set_locus): Set gfc_current_locus1.
(gfc_at_eof): Set new variables.
(gfc_at_bol, gfc_at_eol, gfc_advance_line, gfc_next_char): Adapt
to new locus structure.
(gfc_check_include): Remove.
(skip_free_comments, skip_fixed_comments): Use gfc_current_locus1.
(gfc_skip_comments): Use gfc_current_form, find locus with
gfc_current_locus1.
(gfc_next_char): Use gfc_current_form.
(gfc_peek_char, gfc_gobble_whitespace): Use gfc_current_locus1.
(load_line): Use gfc_current_form. Recognize ^Z as EOF. Fix
comment formatting.
(get_file): New function.
(preprocessor_line, include_line): New functions.
(load_file): Move down, rewrite to match new data structures.
(gfc_new_file): Rewrite to match new data structures.
* parse.c (next_statement): Remove code which is now useless. Use
gfc_source_form and gfc_source_file where appropriate.
* trans-decl.c (gfc_get_label_decl): adapt to new data structures
when determining locus of frontend code.
* trans-io.c (set_error_locus): Same.
* trans.c (gfc_get_backend_locus, gfc_set_backend_locus): Likewise.
* lang-specs.h (@f77-cpp-input, @f95-cpp-input): Remove '-P' from
preprocessor flags.
(all): Add missing initializers.
From-SVN: r81888
2004-05-15 19:31:32 +02:00
|
|
|
/* The following three structures are used to identify a location in
|
|
|
|
the sources.
|
|
|
|
|
|
|
|
gfc_file is used to maintain a tree of the source files and how
|
|
|
|
they include each other
|
2004-05-13 08:41:07 +02:00
|
|
|
|
re PR fortran/13702 (When preprocessing Fortran files (.F, .F90 and .F95) cpp should emit line numbers.)
PR fortran/13702
(Port from g95)
* gfortran.h (gfc_linebuf): New typedef.
(linebuf): Remove.
(gfc_file): Revamped, use new gfc_linebuf.
(locus): Revamped, use new types.
(gfc_current_file): Remove.
(gfc_current_form, gfc_source_file): New global variables.
* match.c (gfc_match_space, gfc_match_strings): Use
gfc_current_form to find source form.
* module.c (gfc_dump_module): Use gfc_source_file when printing
module header.
* error.c (show_locus, show_loci) Use new data structures to print
locus.
* scanner.c (first_file, first_duplicated_file, gfc_current_file):
Remove.
(file_head, current_file, gfc_current_form, line_head, line_tail,
gfc_current_locus1, gfc_source_file): New global variables.
(gfc_scanner_init1): Set new global variables.
(gfc_scanner_done1): Free new data structures.
(gfc_current_locus): Return pointer to gfc_current_locus1.
(gfc_set_locus): Set gfc_current_locus1.
(gfc_at_eof): Set new variables.
(gfc_at_bol, gfc_at_eol, gfc_advance_line, gfc_next_char): Adapt
to new locus structure.
(gfc_check_include): Remove.
(skip_free_comments, skip_fixed_comments): Use gfc_current_locus1.
(gfc_skip_comments): Use gfc_current_form, find locus with
gfc_current_locus1.
(gfc_next_char): Use gfc_current_form.
(gfc_peek_char, gfc_gobble_whitespace): Use gfc_current_locus1.
(load_line): Use gfc_current_form. Recognize ^Z as EOF. Fix
comment formatting.
(get_file): New function.
(preprocessor_line, include_line): New functions.
(load_file): Move down, rewrite to match new data structures.
(gfc_new_file): Rewrite to match new data structures.
* parse.c (next_statement): Remove code which is now useless. Use
gfc_source_form and gfc_source_file where appropriate.
* trans-decl.c (gfc_get_label_decl): adapt to new data structures
when determining locus of frontend code.
* trans-io.c (set_error_locus): Same.
* trans.c (gfc_get_backend_locus, gfc_set_backend_locus): Likewise.
* lang-specs.h (@f77-cpp-input, @f95-cpp-input): Remove '-P' from
preprocessor flags.
(all): Add missing initializers.
From-SVN: r81888
2004-05-15 19:31:32 +02:00
|
|
|
gfc_linebuf holds a single line of source code and information
|
|
|
|
which file it resides in
|
2004-05-13 08:41:07 +02:00
|
|
|
|
re PR fortran/13702 (When preprocessing Fortran files (.F, .F90 and .F95) cpp should emit line numbers.)
PR fortran/13702
(Port from g95)
* gfortran.h (gfc_linebuf): New typedef.
(linebuf): Remove.
(gfc_file): Revamped, use new gfc_linebuf.
(locus): Revamped, use new types.
(gfc_current_file): Remove.
(gfc_current_form, gfc_source_file): New global variables.
* match.c (gfc_match_space, gfc_match_strings): Use
gfc_current_form to find source form.
* module.c (gfc_dump_module): Use gfc_source_file when printing
module header.
* error.c (show_locus, show_loci) Use new data structures to print
locus.
* scanner.c (first_file, first_duplicated_file, gfc_current_file):
Remove.
(file_head, current_file, gfc_current_form, line_head, line_tail,
gfc_current_locus1, gfc_source_file): New global variables.
(gfc_scanner_init1): Set new global variables.
(gfc_scanner_done1): Free new data structures.
(gfc_current_locus): Return pointer to gfc_current_locus1.
(gfc_set_locus): Set gfc_current_locus1.
(gfc_at_eof): Set new variables.
(gfc_at_bol, gfc_at_eol, gfc_advance_line, gfc_next_char): Adapt
to new locus structure.
(gfc_check_include): Remove.
(skip_free_comments, skip_fixed_comments): Use gfc_current_locus1.
(gfc_skip_comments): Use gfc_current_form, find locus with
gfc_current_locus1.
(gfc_next_char): Use gfc_current_form.
(gfc_peek_char, gfc_gobble_whitespace): Use gfc_current_locus1.
(load_line): Use gfc_current_form. Recognize ^Z as EOF. Fix
comment formatting.
(get_file): New function.
(preprocessor_line, include_line): New functions.
(load_file): Move down, rewrite to match new data structures.
(gfc_new_file): Rewrite to match new data structures.
* parse.c (next_statement): Remove code which is now useless. Use
gfc_source_form and gfc_source_file where appropriate.
* trans-decl.c (gfc_get_label_decl): adapt to new data structures
when determining locus of frontend code.
* trans-io.c (set_error_locus): Same.
* trans.c (gfc_get_backend_locus, gfc_set_backend_locus): Likewise.
* lang-specs.h (@f77-cpp-input, @f95-cpp-input): Remove '-P' from
preprocessor flags.
(all): Add missing initializers.
From-SVN: r81888
2004-05-15 19:31:32 +02:00
|
|
|
locus point to the sourceline and the character in the source
|
|
|
|
line.
|
|
|
|
*/
|
2004-05-13 08:41:07 +02:00
|
|
|
|
re PR fortran/13702 (When preprocessing Fortran files (.F, .F90 and .F95) cpp should emit line numbers.)
PR fortran/13702
(Port from g95)
* gfortran.h (gfc_linebuf): New typedef.
(linebuf): Remove.
(gfc_file): Revamped, use new gfc_linebuf.
(locus): Revamped, use new types.
(gfc_current_file): Remove.
(gfc_current_form, gfc_source_file): New global variables.
* match.c (gfc_match_space, gfc_match_strings): Use
gfc_current_form to find source form.
* module.c (gfc_dump_module): Use gfc_source_file when printing
module header.
* error.c (show_locus, show_loci) Use new data structures to print
locus.
* scanner.c (first_file, first_duplicated_file, gfc_current_file):
Remove.
(file_head, current_file, gfc_current_form, line_head, line_tail,
gfc_current_locus1, gfc_source_file): New global variables.
(gfc_scanner_init1): Set new global variables.
(gfc_scanner_done1): Free new data structures.
(gfc_current_locus): Return pointer to gfc_current_locus1.
(gfc_set_locus): Set gfc_current_locus1.
(gfc_at_eof): Set new variables.
(gfc_at_bol, gfc_at_eol, gfc_advance_line, gfc_next_char): Adapt
to new locus structure.
(gfc_check_include): Remove.
(skip_free_comments, skip_fixed_comments): Use gfc_current_locus1.
(gfc_skip_comments): Use gfc_current_form, find locus with
gfc_current_locus1.
(gfc_next_char): Use gfc_current_form.
(gfc_peek_char, gfc_gobble_whitespace): Use gfc_current_locus1.
(load_line): Use gfc_current_form. Recognize ^Z as EOF. Fix
comment formatting.
(get_file): New function.
(preprocessor_line, include_line): New functions.
(load_file): Move down, rewrite to match new data structures.
(gfc_new_file): Rewrite to match new data structures.
* parse.c (next_statement): Remove code which is now useless. Use
gfc_source_form and gfc_source_file where appropriate.
* trans-decl.c (gfc_get_label_decl): adapt to new data structures
when determining locus of frontend code.
* trans-io.c (set_error_locus): Same.
* trans.c (gfc_get_backend_locus, gfc_set_backend_locus): Likewise.
* lang-specs.h (@f77-cpp-input, @f95-cpp-input): Remove '-P' from
preprocessor flags.
(all): Add missing initializers.
From-SVN: r81888
2004-05-15 19:31:32 +02:00
|
|
|
typedef struct gfc_file
|
2004-05-13 08:41:07 +02:00
|
|
|
{
|
re PR fortran/13702 (When preprocessing Fortran files (.F, .F90 and .F95) cpp should emit line numbers.)
PR fortran/13702
(Port from g95)
* gfortran.h (gfc_linebuf): New typedef.
(linebuf): Remove.
(gfc_file): Revamped, use new gfc_linebuf.
(locus): Revamped, use new types.
(gfc_current_file): Remove.
(gfc_current_form, gfc_source_file): New global variables.
* match.c (gfc_match_space, gfc_match_strings): Use
gfc_current_form to find source form.
* module.c (gfc_dump_module): Use gfc_source_file when printing
module header.
* error.c (show_locus, show_loci) Use new data structures to print
locus.
* scanner.c (first_file, first_duplicated_file, gfc_current_file):
Remove.
(file_head, current_file, gfc_current_form, line_head, line_tail,
gfc_current_locus1, gfc_source_file): New global variables.
(gfc_scanner_init1): Set new global variables.
(gfc_scanner_done1): Free new data structures.
(gfc_current_locus): Return pointer to gfc_current_locus1.
(gfc_set_locus): Set gfc_current_locus1.
(gfc_at_eof): Set new variables.
(gfc_at_bol, gfc_at_eol, gfc_advance_line, gfc_next_char): Adapt
to new locus structure.
(gfc_check_include): Remove.
(skip_free_comments, skip_fixed_comments): Use gfc_current_locus1.
(gfc_skip_comments): Use gfc_current_form, find locus with
gfc_current_locus1.
(gfc_next_char): Use gfc_current_form.
(gfc_peek_char, gfc_gobble_whitespace): Use gfc_current_locus1.
(load_line): Use gfc_current_form. Recognize ^Z as EOF. Fix
comment formatting.
(get_file): New function.
(preprocessor_line, include_line): New functions.
(load_file): Move down, rewrite to match new data structures.
(gfc_new_file): Rewrite to match new data structures.
* parse.c (next_statement): Remove code which is now useless. Use
gfc_source_form and gfc_source_file where appropriate.
* trans-decl.c (gfc_get_label_decl): adapt to new data structures
when determining locus of frontend code.
* trans-io.c (set_error_locus): Same.
* trans.c (gfc_get_backend_locus, gfc_set_backend_locus): Likewise.
* lang-specs.h (@f77-cpp-input, @f95-cpp-input): Remove '-P' from
preprocessor flags.
(all): Add missing initializers.
From-SVN: r81888
2004-05-15 19:31:32 +02:00
|
|
|
struct gfc_file *included_by, *next, *up;
|
|
|
|
int inclusion_line, line;
|
|
|
|
char *filename;
|
|
|
|
} gfc_file;
|
|
|
|
|
|
|
|
typedef struct gfc_linebuf
|
|
|
|
{
|
2004-09-07 16:43:37 +02:00
|
|
|
#ifdef USE_MAPPED_LOCATION
|
|
|
|
source_location location;
|
|
|
|
#else
|
re PR fortran/13702 (When preprocessing Fortran files (.F, .F90 and .F95) cpp should emit line numbers.)
PR fortran/13702
(Port from g95)
* gfortran.h (gfc_linebuf): New typedef.
(linebuf): Remove.
(gfc_file): Revamped, use new gfc_linebuf.
(locus): Revamped, use new types.
(gfc_current_file): Remove.
(gfc_current_form, gfc_source_file): New global variables.
* match.c (gfc_match_space, gfc_match_strings): Use
gfc_current_form to find source form.
* module.c (gfc_dump_module): Use gfc_source_file when printing
module header.
* error.c (show_locus, show_loci) Use new data structures to print
locus.
* scanner.c (first_file, first_duplicated_file, gfc_current_file):
Remove.
(file_head, current_file, gfc_current_form, line_head, line_tail,
gfc_current_locus1, gfc_source_file): New global variables.
(gfc_scanner_init1): Set new global variables.
(gfc_scanner_done1): Free new data structures.
(gfc_current_locus): Return pointer to gfc_current_locus1.
(gfc_set_locus): Set gfc_current_locus1.
(gfc_at_eof): Set new variables.
(gfc_at_bol, gfc_at_eol, gfc_advance_line, gfc_next_char): Adapt
to new locus structure.
(gfc_check_include): Remove.
(skip_free_comments, skip_fixed_comments): Use gfc_current_locus1.
(gfc_skip_comments): Use gfc_current_form, find locus with
gfc_current_locus1.
(gfc_next_char): Use gfc_current_form.
(gfc_peek_char, gfc_gobble_whitespace): Use gfc_current_locus1.
(load_line): Use gfc_current_form. Recognize ^Z as EOF. Fix
comment formatting.
(get_file): New function.
(preprocessor_line, include_line): New functions.
(load_file): Move down, rewrite to match new data structures.
(gfc_new_file): Rewrite to match new data structures.
* parse.c (next_statement): Remove code which is now useless. Use
gfc_source_form and gfc_source_file where appropriate.
* trans-decl.c (gfc_get_label_decl): adapt to new data structures
when determining locus of frontend code.
* trans-io.c (set_error_locus): Same.
* trans.c (gfc_get_backend_locus, gfc_set_backend_locus): Likewise.
* lang-specs.h (@f77-cpp-input, @f95-cpp-input): Remove '-P' from
preprocessor flags.
(all): Add missing initializers.
From-SVN: r81888
2004-05-15 19:31:32 +02:00
|
|
|
int linenum;
|
2004-09-07 16:43:37 +02:00
|
|
|
#endif
|
re PR fortran/13702 (When preprocessing Fortran files (.F, .F90 and .F95) cpp should emit line numbers.)
PR fortran/13702
(Port from g95)
* gfortran.h (gfc_linebuf): New typedef.
(linebuf): Remove.
(gfc_file): Revamped, use new gfc_linebuf.
(locus): Revamped, use new types.
(gfc_current_file): Remove.
(gfc_current_form, gfc_source_file): New global variables.
* match.c (gfc_match_space, gfc_match_strings): Use
gfc_current_form to find source form.
* module.c (gfc_dump_module): Use gfc_source_file when printing
module header.
* error.c (show_locus, show_loci) Use new data structures to print
locus.
* scanner.c (first_file, first_duplicated_file, gfc_current_file):
Remove.
(file_head, current_file, gfc_current_form, line_head, line_tail,
gfc_current_locus1, gfc_source_file): New global variables.
(gfc_scanner_init1): Set new global variables.
(gfc_scanner_done1): Free new data structures.
(gfc_current_locus): Return pointer to gfc_current_locus1.
(gfc_set_locus): Set gfc_current_locus1.
(gfc_at_eof): Set new variables.
(gfc_at_bol, gfc_at_eol, gfc_advance_line, gfc_next_char): Adapt
to new locus structure.
(gfc_check_include): Remove.
(skip_free_comments, skip_fixed_comments): Use gfc_current_locus1.
(gfc_skip_comments): Use gfc_current_form, find locus with
gfc_current_locus1.
(gfc_next_char): Use gfc_current_form.
(gfc_peek_char, gfc_gobble_whitespace): Use gfc_current_locus1.
(load_line): Use gfc_current_form. Recognize ^Z as EOF. Fix
comment formatting.
(get_file): New function.
(preprocessor_line, include_line): New functions.
(load_file): Move down, rewrite to match new data structures.
(gfc_new_file): Rewrite to match new data structures.
* parse.c (next_statement): Remove code which is now useless. Use
gfc_source_form and gfc_source_file where appropriate.
* trans-decl.c (gfc_get_label_decl): adapt to new data structures
when determining locus of frontend code.
* trans-io.c (set_error_locus): Same.
* trans.c (gfc_get_backend_locus, gfc_set_backend_locus): Likewise.
* lang-specs.h (@f77-cpp-input, @f95-cpp-input): Remove '-P' from
preprocessor flags.
(all): Add missing initializers.
From-SVN: r81888
2004-05-15 19:31:32 +02:00
|
|
|
struct gfc_file *file;
|
|
|
|
struct gfc_linebuf *next;
|
|
|
|
|
2005-04-15 22:35:26 +02:00
|
|
|
int truncated;
|
|
|
|
|
2004-09-17 19:07:43 +02:00
|
|
|
char line[1];
|
re PR fortran/13702 (When preprocessing Fortran files (.F, .F90 and .F95) cpp should emit line numbers.)
PR fortran/13702
(Port from g95)
* gfortran.h (gfc_linebuf): New typedef.
(linebuf): Remove.
(gfc_file): Revamped, use new gfc_linebuf.
(locus): Revamped, use new types.
(gfc_current_file): Remove.
(gfc_current_form, gfc_source_file): New global variables.
* match.c (gfc_match_space, gfc_match_strings): Use
gfc_current_form to find source form.
* module.c (gfc_dump_module): Use gfc_source_file when printing
module header.
* error.c (show_locus, show_loci) Use new data structures to print
locus.
* scanner.c (first_file, first_duplicated_file, gfc_current_file):
Remove.
(file_head, current_file, gfc_current_form, line_head, line_tail,
gfc_current_locus1, gfc_source_file): New global variables.
(gfc_scanner_init1): Set new global variables.
(gfc_scanner_done1): Free new data structures.
(gfc_current_locus): Return pointer to gfc_current_locus1.
(gfc_set_locus): Set gfc_current_locus1.
(gfc_at_eof): Set new variables.
(gfc_at_bol, gfc_at_eol, gfc_advance_line, gfc_next_char): Adapt
to new locus structure.
(gfc_check_include): Remove.
(skip_free_comments, skip_fixed_comments): Use gfc_current_locus1.
(gfc_skip_comments): Use gfc_current_form, find locus with
gfc_current_locus1.
(gfc_next_char): Use gfc_current_form.
(gfc_peek_char, gfc_gobble_whitespace): Use gfc_current_locus1.
(load_line): Use gfc_current_form. Recognize ^Z as EOF. Fix
comment formatting.
(get_file): New function.
(preprocessor_line, include_line): New functions.
(load_file): Move down, rewrite to match new data structures.
(gfc_new_file): Rewrite to match new data structures.
* parse.c (next_statement): Remove code which is now useless. Use
gfc_source_form and gfc_source_file where appropriate.
* trans-decl.c (gfc_get_label_decl): adapt to new data structures
when determining locus of frontend code.
* trans-io.c (set_error_locus): Same.
* trans.c (gfc_get_backend_locus, gfc_set_backend_locus): Likewise.
* lang-specs.h (@f77-cpp-input, @f95-cpp-input): Remove '-P' from
preprocessor flags.
(all): Add missing initializers.
From-SVN: r81888
2004-05-15 19:31:32 +02:00
|
|
|
} gfc_linebuf;
|
2004-09-17 19:07:43 +02:00
|
|
|
|
|
|
|
#define gfc_linebuf_header_size (offsetof (gfc_linebuf, line))
|
|
|
|
|
re PR fortran/13702 (When preprocessing Fortran files (.F, .F90 and .F95) cpp should emit line numbers.)
PR fortran/13702
(Port from g95)
* gfortran.h (gfc_linebuf): New typedef.
(linebuf): Remove.
(gfc_file): Revamped, use new gfc_linebuf.
(locus): Revamped, use new types.
(gfc_current_file): Remove.
(gfc_current_form, gfc_source_file): New global variables.
* match.c (gfc_match_space, gfc_match_strings): Use
gfc_current_form to find source form.
* module.c (gfc_dump_module): Use gfc_source_file when printing
module header.
* error.c (show_locus, show_loci) Use new data structures to print
locus.
* scanner.c (first_file, first_duplicated_file, gfc_current_file):
Remove.
(file_head, current_file, gfc_current_form, line_head, line_tail,
gfc_current_locus1, gfc_source_file): New global variables.
(gfc_scanner_init1): Set new global variables.
(gfc_scanner_done1): Free new data structures.
(gfc_current_locus): Return pointer to gfc_current_locus1.
(gfc_set_locus): Set gfc_current_locus1.
(gfc_at_eof): Set new variables.
(gfc_at_bol, gfc_at_eol, gfc_advance_line, gfc_next_char): Adapt
to new locus structure.
(gfc_check_include): Remove.
(skip_free_comments, skip_fixed_comments): Use gfc_current_locus1.
(gfc_skip_comments): Use gfc_current_form, find locus with
gfc_current_locus1.
(gfc_next_char): Use gfc_current_form.
(gfc_peek_char, gfc_gobble_whitespace): Use gfc_current_locus1.
(load_line): Use gfc_current_form. Recognize ^Z as EOF. Fix
comment formatting.
(get_file): New function.
(preprocessor_line, include_line): New functions.
(load_file): Move down, rewrite to match new data structures.
(gfc_new_file): Rewrite to match new data structures.
* parse.c (next_statement): Remove code which is now useless. Use
gfc_source_form and gfc_source_file where appropriate.
* trans-decl.c (gfc_get_label_decl): adapt to new data structures
when determining locus of frontend code.
* trans-io.c (set_error_locus): Same.
* trans.c (gfc_get_backend_locus, gfc_set_backend_locus): Likewise.
* lang-specs.h (@f77-cpp-input, @f95-cpp-input): Remove '-P' from
preprocessor flags.
(all): Add missing initializers.
From-SVN: r81888
2004-05-15 19:31:32 +02:00
|
|
|
typedef struct
|
|
|
|
{
|
|
|
|
char *nextc;
|
|
|
|
gfc_linebuf *lb;
|
|
|
|
} locus;
|
2004-05-13 08:41:07 +02:00
|
|
|
|
c-format.c (gcc_gfc_format_type, [...]): New.
* c-format.c (gcc_gfc_format_type, gcc_gfc_flag_pairs,
gcc_gfc_char_table, init_dynamic_gfc_info): New.
(format_types_orig, handle_format_attribute): Add support for
format "gcc_gfc".
fortran:
* error.c (error_printf, error_print): Use ATTRIBUTE_GCC_GFC.
* gfortran.h (ATTRIBUTE_GCC_GFC): New.
(gfc_warning, gfc_warning_now, gfc_error, gfc_error_now,
gfc_fatal_error, gfc_internal_error, gfc_notify_std): Use
ATTRIBUTE_GCC_GFC.
testsuite:
* gcc.dg/format/gcc_gfc-1.c: New.
From-SVN: r101552
2005-07-03 16:28:03 +02:00
|
|
|
/* In order for the "gfc" format checking to work correctly, you must
|
|
|
|
have declared a typedef locus first. */
|
|
|
|
#if GCC_VERSION >= 4001
|
|
|
|
#define ATTRIBUTE_GCC_GFC(m, n) __attribute__ ((__format__ (__gcc_gfc__, m, n))) ATTRIBUTE_NONNULL(m)
|
|
|
|
#else
|
|
|
|
#define ATTRIBUTE_GCC_GFC(m, n) ATTRIBUTE_NONNULL(m)
|
|
|
|
#endif
|
|
|
|
|
2004-05-13 08:41:07 +02:00
|
|
|
|
|
|
|
extern int gfc_suppress_error;
|
|
|
|
|
|
|
|
|
|
|
|
/* Character length structures hold the expression that gives the
|
|
|
|
length of a character variable. We avoid putting these into
|
|
|
|
gfc_typespec because doing so prevents us from doing structure
|
|
|
|
copies and forces us to deallocate any typespecs we create, as well
|
|
|
|
as structures that contain typespecs. They also can have multiple
|
|
|
|
character typespecs pointing to them.
|
|
|
|
|
|
|
|
These structures form a singly linked list within the current
|
|
|
|
namespace and are deallocated with the namespace. It is possible to
|
|
|
|
end up with gfc_charlen structures that have nothing pointing to them. */
|
|
|
|
|
|
|
|
typedef struct gfc_charlen
|
|
|
|
{
|
|
|
|
struct gfc_expr *length;
|
|
|
|
struct gfc_charlen *next;
|
|
|
|
tree backend_decl;
|
|
|
|
}
|
|
|
|
gfc_charlen;
|
|
|
|
|
|
|
|
#define gfc_get_charlen() gfc_getmem(sizeof(gfc_charlen))
|
|
|
|
|
|
|
|
/* Type specification structure. FIXME: derived and cl could be union??? */
|
|
|
|
typedef struct
|
|
|
|
{
|
|
|
|
bt type;
|
|
|
|
int kind;
|
|
|
|
struct gfc_symbol *derived;
|
|
|
|
gfc_charlen *cl; /* For character types only. */
|
|
|
|
}
|
|
|
|
gfc_typespec;
|
|
|
|
|
|
|
|
/* Array specification. */
|
|
|
|
typedef struct
|
|
|
|
{
|
|
|
|
int rank; /* A rank of zero means that a variable is a scalar. */
|
|
|
|
array_type type;
|
|
|
|
struct gfc_expr *lower[GFC_MAX_DIMENSIONS], *upper[GFC_MAX_DIMENSIONS];
|
2005-10-24 21:28:18 +02:00
|
|
|
|
|
|
|
/* These two fields are used with the Cray Pointer extension. */
|
|
|
|
bool cray_pointee; /* True iff this spec belongs to a cray pointee. */
|
|
|
|
bool cp_was_assumed; /* AS_ASSUMED_SIZE cp arrays are converted to
|
|
|
|
AS_EXPLICIT, but we want to remember that we
|
|
|
|
did this. */
|
|
|
|
|
2004-05-13 08:41:07 +02:00
|
|
|
}
|
|
|
|
gfc_array_spec;
|
|
|
|
|
|
|
|
#define gfc_get_array_spec() gfc_getmem(sizeof(gfc_array_spec))
|
|
|
|
|
|
|
|
|
|
|
|
/* Components of derived types. */
|
|
|
|
typedef struct gfc_component
|
|
|
|
{
|
2005-02-24 19:26:27 +01:00
|
|
|
const char *name;
|
2004-05-13 08:41:07 +02:00
|
|
|
gfc_typespec ts;
|
|
|
|
|
|
|
|
int pointer, dimension;
|
|
|
|
gfc_array_spec *as;
|
|
|
|
|
|
|
|
tree backend_decl;
|
|
|
|
locus loc;
|
|
|
|
struct gfc_expr *initializer;
|
|
|
|
struct gfc_component *next;
|
|
|
|
}
|
|
|
|
gfc_component;
|
|
|
|
|
|
|
|
#define gfc_get_component() gfc_getmem(sizeof(gfc_component))
|
|
|
|
|
|
|
|
/* Formal argument lists are lists of symbols. */
|
|
|
|
typedef struct gfc_formal_arglist
|
|
|
|
{
|
2004-08-13 19:24:09 +02:00
|
|
|
/* Symbol representing the argument at this position in the arglist. */
|
2004-05-13 08:41:07 +02:00
|
|
|
struct gfc_symbol *sym;
|
2004-08-13 19:24:09 +02:00
|
|
|
/* Points to the next formal argument. */
|
2004-05-13 08:41:07 +02:00
|
|
|
struct gfc_formal_arglist *next;
|
|
|
|
}
|
|
|
|
gfc_formal_arglist;
|
|
|
|
|
|
|
|
#define gfc_get_formal_arglist() gfc_getmem(sizeof(gfc_formal_arglist))
|
|
|
|
|
|
|
|
|
|
|
|
/* The gfc_actual_arglist structure is for actual arguments. */
|
|
|
|
typedef struct gfc_actual_arglist
|
|
|
|
{
|
2005-02-24 19:26:27 +01:00
|
|
|
const char *name;
|
2004-05-13 08:41:07 +02:00
|
|
|
/* Alternate return label when the expr member is null. */
|
|
|
|
struct gfc_st_label *label;
|
|
|
|
|
2004-06-04 00:35:41 +02:00
|
|
|
/* This is set to the type of an eventual omitted optional
|
|
|
|
argument. This is used to determine if a hidden string length
|
|
|
|
argument has to be added to a function call. */
|
|
|
|
bt missing_arg_type;
|
|
|
|
|
2004-05-13 08:41:07 +02:00
|
|
|
struct gfc_expr *expr;
|
|
|
|
struct gfc_actual_arglist *next;
|
|
|
|
}
|
|
|
|
gfc_actual_arglist;
|
|
|
|
|
|
|
|
#define gfc_get_actual_arglist() gfc_getmem(sizeof(gfc_actual_arglist))
|
|
|
|
|
|
|
|
|
|
|
|
/* Because a symbol can belong to multiple namelists, they must be
|
|
|
|
linked externally to the symbol itself. */
|
|
|
|
typedef struct gfc_namelist
|
|
|
|
{
|
|
|
|
struct gfc_symbol *sym;
|
|
|
|
struct gfc_namelist *next;
|
|
|
|
}
|
|
|
|
gfc_namelist;
|
|
|
|
|
|
|
|
#define gfc_get_namelist() gfc_getmem(sizeof(gfc_namelist))
|
|
|
|
|
|
|
|
|
|
|
|
/* The gfc_st_label structure is a doubly linked list attached to a
|
|
|
|
namespace that records the usage of statement labels within that
|
|
|
|
space. */
|
|
|
|
/* TODO: Make format/statement specifics a union. */
|
|
|
|
typedef struct gfc_st_label
|
|
|
|
{
|
|
|
|
int value;
|
|
|
|
|
|
|
|
gfc_sl_type defined, referenced;
|
|
|
|
|
|
|
|
struct gfc_expr *format;
|
|
|
|
|
|
|
|
tree backend_decl;
|
|
|
|
|
|
|
|
locus where;
|
|
|
|
|
|
|
|
struct gfc_st_label *prev, *next;
|
|
|
|
}
|
|
|
|
gfc_st_label;
|
|
|
|
|
|
|
|
|
|
|
|
/* gfc_interface()-- Interfaces are lists of symbols strung together. */
|
|
|
|
typedef struct gfc_interface
|
|
|
|
{
|
|
|
|
struct gfc_symbol *sym;
|
|
|
|
locus where;
|
|
|
|
struct gfc_interface *next;
|
|
|
|
}
|
|
|
|
gfc_interface;
|
|
|
|
|
|
|
|
#define gfc_get_interface() gfc_getmem(sizeof(gfc_interface))
|
|
|
|
|
|
|
|
|
|
|
|
/* User operator nodes. These are like stripped down symbols. */
|
|
|
|
typedef struct
|
|
|
|
{
|
2005-02-24 19:26:27 +01:00
|
|
|
const char *name;
|
2004-05-13 08:41:07 +02:00
|
|
|
|
|
|
|
gfc_interface *operator;
|
|
|
|
struct gfc_namespace *ns;
|
|
|
|
gfc_access access;
|
|
|
|
}
|
|
|
|
gfc_user_op;
|
|
|
|
|
|
|
|
/* Symbol nodes. These are important things. They are what the
|
|
|
|
standard refers to as "entities". The possibly multiple names that
|
|
|
|
refer to the same entity are accomplished by a binary tree of
|
|
|
|
symtree structures that is balanced by the red-black method-- more
|
|
|
|
than one symtree node can point to any given symbol. */
|
|
|
|
|
|
|
|
typedef struct gfc_symbol
|
|
|
|
{
|
2005-02-24 19:26:27 +01:00
|
|
|
const char *name; /* Primary name, before renaming */
|
|
|
|
const char *module; /* Module this symbol came from */
|
2004-05-13 08:41:07 +02:00
|
|
|
locus declared_at;
|
|
|
|
|
|
|
|
gfc_typespec ts;
|
|
|
|
symbol_attribute attr;
|
|
|
|
|
|
|
|
/* The interface member points to the formal argument list if the
|
|
|
|
symbol is a function or subroutine name. If the symbol is a
|
|
|
|
generic name, the generic member points to the list of
|
|
|
|
interfaces. */
|
|
|
|
|
|
|
|
gfc_interface *generic;
|
|
|
|
gfc_access component_access;
|
|
|
|
|
|
|
|
gfc_formal_arglist *formal;
|
|
|
|
struct gfc_namespace *formal_ns;
|
|
|
|
|
|
|
|
struct gfc_expr *value; /* Parameter/Initializer value */
|
|
|
|
gfc_array_spec *as;
|
|
|
|
struct gfc_symbol *result; /* function result symbol */
|
|
|
|
gfc_component *components; /* Derived type components */
|
|
|
|
|
2005-10-24 21:28:18 +02:00
|
|
|
/* Defined only for Cray pointees; points to their pointer. */
|
|
|
|
struct gfc_symbol *cp_pointer;
|
|
|
|
|
Andrew Vaught <andyv@firstinter.net>
2004-06-29 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de>
Andrew Vaught <andyv@firstinter.net>
PR fortran/13249
PR fortran/15481
* declc (gfc_match_save): Adapt to new common structures,
don't allow saving USE-associated common.
* dump-parse-tree (gfc_show_attr): (saved_)common are not
symbol attributes any longer.
(gfc_show_symbol): Don't show old-style commons any longer.
(gfc_show_namespace): Adapt call to gfc_traverse_symtree to new
interface.
* gfortran.h (symbol_attribute): Remove common and saved_common
attributes.
(gfc_symbol): Remove common_head element.
(gfc_common_head): New struct.
(gfc_get_common_head): New macro.
(gfc_symtree): Add field 'common' to union.
(gfc_namespace): Add field 'common_root'; change type of field
'blank_common' to blank_common.
(gfc_add_data): New prototype.
(gfc_traverse_symtree): Expect a symtree as first argument
instead of namespace.
* match.c (gfc_get_common): New function.
(match_common_name): Change to take char * as argument, adapt,
fix bug with empty name.
(gfc_match_common): Adapt to new data structures. Disallow
redeclaration of USE-associated COMMON-block. Fix bug with
empty common.
(var_element): Adapt to new common structures.
* match.h (gfc_get_common): Declare.
* module.c: Add 2004 to copyright years, add commons to module
file layout description.
(ab_attribute, attr_bits, mio_symbol_attributes): Remove code
for removed attributes.
(mio_symbol): Adapt to new way of storing common relations.
(load_commons): New function.
(read_module): Skip common list on first pass, load_commons at
second.
(write_commons): New function.
(write_module): Call write_commons().
* symbol.c (gfc_add_saved_comon, gfc_add_common): Remove
functions related to removed attributes.
(gfc_add_data): New function.
(gfc_clear_attr): Don't set removed attributes.
(gfc_copy_attr): Don't copy removed attributes.
(traverse_symtree): Remove.
(gfc_traverse_symtree): Don't traverse symbol
tree of the passed namespace, but require a symtree to be passed
instead. Unify with traverse_symtree.
(gfc_traverse_ns): Call gfc_traverse_symtree according to new
interface.
(save_symbol): Remove setting of removed attribute.
* trans-common.c (gfc_sym_mangled_common_id): Change to
take 'char *' argument instead of 'gfc_symbol'.
(build_common_decl, new_segment, translate_common): Adapt to new
data structures, add new
argument name.
(create_common): Adapt to new data structures, add new
argument name. Fix typo in intialization of derived types.
(finish_equivalences): Add second argument in call to
create_common.
(named_common): take 'gfc_symtree' instead of 'gfc_symbol'.
(gfc_trans_common): Adapt to new data structures.
* trans-decl.c (gfc_create_module_variables): Also output
symbols from commons.
Co-Authored-By: Andrew Vaught <andyv@firstinter.net>
From-SVN: r83871
2004-06-29 20:57:25 +02:00
|
|
|
struct gfc_symbol *common_next; /* Links for COMMON syms */
|
re PR fortran/18878 ([4.0 only] erronous error message on vaild USE statement)
2005-09-09 Paul Thomas <pault@gcc.gnu.org>
PR fortran/18878
* module.c (find_use_name_n): Based on original
find_use_name. Either counts number of use names for a
given real name or returns use name n.
(find_use_name, number_use_names): Interfaces to the
function find_use_name_n.
(read_module): Add the logic and calls to these functions,
so that mutiple reuses of the same real name are loaded.
2005-09-09 Paul Thomas <pault@gcc.gnu.org>
PR fortran/22304
PR fortran/23270
PR fortran/18870
PR fortran/16511
PR fortran/17917
* gfortran.h: Move definition of BLANK_COMMON_NAME from trans-
common.c so that it is accessible to module.c. Add common_head
field to gfc_symbol structure. Add field for the equivalence
name AND new attr field, in_equivalence.
* match.c (gfc_match_common, gfc_match_equivalence): In loops
that flag common block equivalences, emit an error if the
common blocks are different, using sym->common_head as the
common block identifier. Ensure that symbols that are equivalence
associated with a common block are marked as being in_common.
* module.c (write_blank_common): New.
(write_common): Use unmangled common block name.
(load_equiv): New function ported from g95.
(read_module): Call load_equiv.
(write_equiv): New function ported from g95. Correct
string referencing for gfc functions. Give module
equivalences a unique name.
(write_module): Call write_equiv and write_blank_common.
* primary.c (match_variable) Old gfc_match_variable, made
static and third argument provided to indicate if parent
namespace to be visited or not.
(gfc_match_variable) New. Interface to match_variable.
(gfc_match_equiv_variable) New. Interface to match_variable.
* trans-common.c (finish_equivalences): Provide the call
to create_common with a gfc_common_header so that
module equivalences are made external, rather than local.
(find_equivalences): Ensure that all members in common block
equivalences are marked as used. This prevents the subsequent
call to this function from making local unions.
* trans-decl.c (gfc_generate_function_code): Move the call to
gfc_generate_contained_functions to after the call to
gfc_trans_common so the use-associated, contained common
blocks produce the correct references.
(gfc_create_module_variable): Return for equivalenced symbols
with existing backend declaration.
2005-09-09 Paul Thomas <pault@gcc.gnu.org>
PR fortran/18878
* gfortran.dg/module_double_reuse.f90: New.
2005-09-09 Paul Thomas <pault@gcc.gnu.org>
PR fortran/23270
PR fortran/22304
PR fortran/18870
PR fortran/17917
PR fortran/16511
* gfortran.dg/common_equivalence_1.f: New.
* gfortran.dg/common_equivalence_2.f: New.
* gfortran.dg/common_equivalence_3.f: New.
* gfortran.dg/contained_equivalence_1.f90: New.
* gfortran.dg/module_blank_common.f90: New.
* gfortran.dg/module_commons_1.f90: New.
* gfortran.dg/module_equivalence_1.f90: New.
* gfortran.dg/nested_modules_1.f90: New.
* gfortran.dg/g77/19990905-0.f: Remove XFAIL, rearrange
equivalences and add comment to connect the test with
the PR.
From-SVN: r104060
2005-09-09 02:23:09 +02:00
|
|
|
|
|
|
|
/* This is in fact a gfc_common_head but it is only used for pointer
|
|
|
|
comparisons to check if symbols are in the same common block. */
|
|
|
|
struct gfc_common_head* common_head;
|
|
|
|
|
2004-05-13 08:41:07 +02:00
|
|
|
/* Make sure setup code for dummy arguments is generated in the correct
|
|
|
|
order. */
|
|
|
|
int dummy_order;
|
|
|
|
|
|
|
|
gfc_namelist *namelist, *namelist_tail;
|
|
|
|
|
|
|
|
/* Change management fields. Symbols that might be modified by the
|
|
|
|
current statement have the mark member nonzero and are kept in a
|
|
|
|
singly linked list through the tlink field. Of these symbols,
|
|
|
|
symbols with old_symbol equal to NULL are symbols created within
|
|
|
|
the current statement. Otherwise, old_symbol points to a copy of
|
|
|
|
the old symbol. */
|
|
|
|
|
|
|
|
struct gfc_symbol *old_symbol, *tlink;
|
|
|
|
unsigned mark:1, new:1;
|
2004-05-23 17:14:36 +02:00
|
|
|
/* Nonzero if all equivalences associated with this symbol have been
|
|
|
|
processed. */
|
|
|
|
unsigned equiv_built:1;
|
2004-05-13 08:41:07 +02:00
|
|
|
int refs;
|
|
|
|
struct gfc_namespace *ns; /* namespace containing this symbol */
|
|
|
|
|
|
|
|
tree backend_decl;
|
|
|
|
}
|
|
|
|
gfc_symbol;
|
|
|
|
|
|
|
|
|
Andrew Vaught <andyv@firstinter.net>
2004-06-29 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de>
Andrew Vaught <andyv@firstinter.net>
PR fortran/13249
PR fortran/15481
* declc (gfc_match_save): Adapt to new common structures,
don't allow saving USE-associated common.
* dump-parse-tree (gfc_show_attr): (saved_)common are not
symbol attributes any longer.
(gfc_show_symbol): Don't show old-style commons any longer.
(gfc_show_namespace): Adapt call to gfc_traverse_symtree to new
interface.
* gfortran.h (symbol_attribute): Remove common and saved_common
attributes.
(gfc_symbol): Remove common_head element.
(gfc_common_head): New struct.
(gfc_get_common_head): New macro.
(gfc_symtree): Add field 'common' to union.
(gfc_namespace): Add field 'common_root'; change type of field
'blank_common' to blank_common.
(gfc_add_data): New prototype.
(gfc_traverse_symtree): Expect a symtree as first argument
instead of namespace.
* match.c (gfc_get_common): New function.
(match_common_name): Change to take char * as argument, adapt,
fix bug with empty name.
(gfc_match_common): Adapt to new data structures. Disallow
redeclaration of USE-associated COMMON-block. Fix bug with
empty common.
(var_element): Adapt to new common structures.
* match.h (gfc_get_common): Declare.
* module.c: Add 2004 to copyright years, add commons to module
file layout description.
(ab_attribute, attr_bits, mio_symbol_attributes): Remove code
for removed attributes.
(mio_symbol): Adapt to new way of storing common relations.
(load_commons): New function.
(read_module): Skip common list on first pass, load_commons at
second.
(write_commons): New function.
(write_module): Call write_commons().
* symbol.c (gfc_add_saved_comon, gfc_add_common): Remove
functions related to removed attributes.
(gfc_add_data): New function.
(gfc_clear_attr): Don't set removed attributes.
(gfc_copy_attr): Don't copy removed attributes.
(traverse_symtree): Remove.
(gfc_traverse_symtree): Don't traverse symbol
tree of the passed namespace, but require a symtree to be passed
instead. Unify with traverse_symtree.
(gfc_traverse_ns): Call gfc_traverse_symtree according to new
interface.
(save_symbol): Remove setting of removed attribute.
* trans-common.c (gfc_sym_mangled_common_id): Change to
take 'char *' argument instead of 'gfc_symbol'.
(build_common_decl, new_segment, translate_common): Adapt to new
data structures, add new
argument name.
(create_common): Adapt to new data structures, add new
argument name. Fix typo in intialization of derived types.
(finish_equivalences): Add second argument in call to
create_common.
(named_common): take 'gfc_symtree' instead of 'gfc_symbol'.
(gfc_trans_common): Adapt to new data structures.
* trans-decl.c (gfc_create_module_variables): Also output
symbols from commons.
Co-Authored-By: Andrew Vaught <andyv@firstinter.net>
From-SVN: r83871
2004-06-29 20:57:25 +02:00
|
|
|
/* This structure is used to keep track of symbols in common blocks. */
|
|
|
|
|
re PR fortran/18878 ([4.0 only] erronous error message on vaild USE statement)
2005-09-09 Paul Thomas <pault@gcc.gnu.org>
PR fortran/18878
* module.c (find_use_name_n): Based on original
find_use_name. Either counts number of use names for a
given real name or returns use name n.
(find_use_name, number_use_names): Interfaces to the
function find_use_name_n.
(read_module): Add the logic and calls to these functions,
so that mutiple reuses of the same real name are loaded.
2005-09-09 Paul Thomas <pault@gcc.gnu.org>
PR fortran/22304
PR fortran/23270
PR fortran/18870
PR fortran/16511
PR fortran/17917
* gfortran.h: Move definition of BLANK_COMMON_NAME from trans-
common.c so that it is accessible to module.c. Add common_head
field to gfc_symbol structure. Add field for the equivalence
name AND new attr field, in_equivalence.
* match.c (gfc_match_common, gfc_match_equivalence): In loops
that flag common block equivalences, emit an error if the
common blocks are different, using sym->common_head as the
common block identifier. Ensure that symbols that are equivalence
associated with a common block are marked as being in_common.
* module.c (write_blank_common): New.
(write_common): Use unmangled common block name.
(load_equiv): New function ported from g95.
(read_module): Call load_equiv.
(write_equiv): New function ported from g95. Correct
string referencing for gfc functions. Give module
equivalences a unique name.
(write_module): Call write_equiv and write_blank_common.
* primary.c (match_variable) Old gfc_match_variable, made
static and third argument provided to indicate if parent
namespace to be visited or not.
(gfc_match_variable) New. Interface to match_variable.
(gfc_match_equiv_variable) New. Interface to match_variable.
* trans-common.c (finish_equivalences): Provide the call
to create_common with a gfc_common_header so that
module equivalences are made external, rather than local.
(find_equivalences): Ensure that all members in common block
equivalences are marked as used. This prevents the subsequent
call to this function from making local unions.
* trans-decl.c (gfc_generate_function_code): Move the call to
gfc_generate_contained_functions to after the call to
gfc_trans_common so the use-associated, contained common
blocks produce the correct references.
(gfc_create_module_variable): Return for equivalenced symbols
with existing backend declaration.
2005-09-09 Paul Thomas <pault@gcc.gnu.org>
PR fortran/18878
* gfortran.dg/module_double_reuse.f90: New.
2005-09-09 Paul Thomas <pault@gcc.gnu.org>
PR fortran/23270
PR fortran/22304
PR fortran/18870
PR fortran/17917
PR fortran/16511
* gfortran.dg/common_equivalence_1.f: New.
* gfortran.dg/common_equivalence_2.f: New.
* gfortran.dg/common_equivalence_3.f: New.
* gfortran.dg/contained_equivalence_1.f90: New.
* gfortran.dg/module_blank_common.f90: New.
* gfortran.dg/module_commons_1.f90: New.
* gfortran.dg/module_equivalence_1.f90: New.
* gfortran.dg/nested_modules_1.f90: New.
* gfortran.dg/g77/19990905-0.f: Remove XFAIL, rearrange
equivalences and add comment to connect the test with
the PR.
From-SVN: r104060
2005-09-09 02:23:09 +02:00
|
|
|
typedef struct gfc_common_head
|
Andrew Vaught <andyv@firstinter.net>
2004-06-29 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de>
Andrew Vaught <andyv@firstinter.net>
PR fortran/13249
PR fortran/15481
* declc (gfc_match_save): Adapt to new common structures,
don't allow saving USE-associated common.
* dump-parse-tree (gfc_show_attr): (saved_)common are not
symbol attributes any longer.
(gfc_show_symbol): Don't show old-style commons any longer.
(gfc_show_namespace): Adapt call to gfc_traverse_symtree to new
interface.
* gfortran.h (symbol_attribute): Remove common and saved_common
attributes.
(gfc_symbol): Remove common_head element.
(gfc_common_head): New struct.
(gfc_get_common_head): New macro.
(gfc_symtree): Add field 'common' to union.
(gfc_namespace): Add field 'common_root'; change type of field
'blank_common' to blank_common.
(gfc_add_data): New prototype.
(gfc_traverse_symtree): Expect a symtree as first argument
instead of namespace.
* match.c (gfc_get_common): New function.
(match_common_name): Change to take char * as argument, adapt,
fix bug with empty name.
(gfc_match_common): Adapt to new data structures. Disallow
redeclaration of USE-associated COMMON-block. Fix bug with
empty common.
(var_element): Adapt to new common structures.
* match.h (gfc_get_common): Declare.
* module.c: Add 2004 to copyright years, add commons to module
file layout description.
(ab_attribute, attr_bits, mio_symbol_attributes): Remove code
for removed attributes.
(mio_symbol): Adapt to new way of storing common relations.
(load_commons): New function.
(read_module): Skip common list on first pass, load_commons at
second.
(write_commons): New function.
(write_module): Call write_commons().
* symbol.c (gfc_add_saved_comon, gfc_add_common): Remove
functions related to removed attributes.
(gfc_add_data): New function.
(gfc_clear_attr): Don't set removed attributes.
(gfc_copy_attr): Don't copy removed attributes.
(traverse_symtree): Remove.
(gfc_traverse_symtree): Don't traverse symbol
tree of the passed namespace, but require a symtree to be passed
instead. Unify with traverse_symtree.
(gfc_traverse_ns): Call gfc_traverse_symtree according to new
interface.
(save_symbol): Remove setting of removed attribute.
* trans-common.c (gfc_sym_mangled_common_id): Change to
take 'char *' argument instead of 'gfc_symbol'.
(build_common_decl, new_segment, translate_common): Adapt to new
data structures, add new
argument name.
(create_common): Adapt to new data structures, add new
argument name. Fix typo in intialization of derived types.
(finish_equivalences): Add second argument in call to
create_common.
(named_common): take 'gfc_symtree' instead of 'gfc_symbol'.
(gfc_trans_common): Adapt to new data structures.
* trans-decl.c (gfc_create_module_variables): Also output
symbols from commons.
Co-Authored-By: Andrew Vaught <andyv@firstinter.net>
From-SVN: r83871
2004-06-29 20:57:25 +02:00
|
|
|
{
|
|
|
|
locus where;
|
|
|
|
int use_assoc, saved;
|
2004-07-11 00:37:16 +02:00
|
|
|
char name[GFC_MAX_SYMBOL_LEN + 1];
|
re PR fortran/18878 ([4.0 only] erronous error message on vaild USE statement)
2005-09-09 Paul Thomas <pault@gcc.gnu.org>
PR fortran/18878
* module.c (find_use_name_n): Based on original
find_use_name. Either counts number of use names for a
given real name or returns use name n.
(find_use_name, number_use_names): Interfaces to the
function find_use_name_n.
(read_module): Add the logic and calls to these functions,
so that mutiple reuses of the same real name are loaded.
2005-09-09 Paul Thomas <pault@gcc.gnu.org>
PR fortran/22304
PR fortran/23270
PR fortran/18870
PR fortran/16511
PR fortran/17917
* gfortran.h: Move definition of BLANK_COMMON_NAME from trans-
common.c so that it is accessible to module.c. Add common_head
field to gfc_symbol structure. Add field for the equivalence
name AND new attr field, in_equivalence.
* match.c (gfc_match_common, gfc_match_equivalence): In loops
that flag common block equivalences, emit an error if the
common blocks are different, using sym->common_head as the
common block identifier. Ensure that symbols that are equivalence
associated with a common block are marked as being in_common.
* module.c (write_blank_common): New.
(write_common): Use unmangled common block name.
(load_equiv): New function ported from g95.
(read_module): Call load_equiv.
(write_equiv): New function ported from g95. Correct
string referencing for gfc functions. Give module
equivalences a unique name.
(write_module): Call write_equiv and write_blank_common.
* primary.c (match_variable) Old gfc_match_variable, made
static and third argument provided to indicate if parent
namespace to be visited or not.
(gfc_match_variable) New. Interface to match_variable.
(gfc_match_equiv_variable) New. Interface to match_variable.
* trans-common.c (finish_equivalences): Provide the call
to create_common with a gfc_common_header so that
module equivalences are made external, rather than local.
(find_equivalences): Ensure that all members in common block
equivalences are marked as used. This prevents the subsequent
call to this function from making local unions.
* trans-decl.c (gfc_generate_function_code): Move the call to
gfc_generate_contained_functions to after the call to
gfc_trans_common so the use-associated, contained common
blocks produce the correct references.
(gfc_create_module_variable): Return for equivalenced symbols
with existing backend declaration.
2005-09-09 Paul Thomas <pault@gcc.gnu.org>
PR fortran/18878
* gfortran.dg/module_double_reuse.f90: New.
2005-09-09 Paul Thomas <pault@gcc.gnu.org>
PR fortran/23270
PR fortran/22304
PR fortran/18870
PR fortran/17917
PR fortran/16511
* gfortran.dg/common_equivalence_1.f: New.
* gfortran.dg/common_equivalence_2.f: New.
* gfortran.dg/common_equivalence_3.f: New.
* gfortran.dg/contained_equivalence_1.f90: New.
* gfortran.dg/module_blank_common.f90: New.
* gfortran.dg/module_commons_1.f90: New.
* gfortran.dg/module_equivalence_1.f90: New.
* gfortran.dg/nested_modules_1.f90: New.
* gfortran.dg/g77/19990905-0.f: Remove XFAIL, rearrange
equivalences and add comment to connect the test with
the PR.
From-SVN: r104060
2005-09-09 02:23:09 +02:00
|
|
|
struct gfc_symbol *head;
|
Andrew Vaught <andyv@firstinter.net>
2004-06-29 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de>
Andrew Vaught <andyv@firstinter.net>
PR fortran/13249
PR fortran/15481
* declc (gfc_match_save): Adapt to new common structures,
don't allow saving USE-associated common.
* dump-parse-tree (gfc_show_attr): (saved_)common are not
symbol attributes any longer.
(gfc_show_symbol): Don't show old-style commons any longer.
(gfc_show_namespace): Adapt call to gfc_traverse_symtree to new
interface.
* gfortran.h (symbol_attribute): Remove common and saved_common
attributes.
(gfc_symbol): Remove common_head element.
(gfc_common_head): New struct.
(gfc_get_common_head): New macro.
(gfc_symtree): Add field 'common' to union.
(gfc_namespace): Add field 'common_root'; change type of field
'blank_common' to blank_common.
(gfc_add_data): New prototype.
(gfc_traverse_symtree): Expect a symtree as first argument
instead of namespace.
* match.c (gfc_get_common): New function.
(match_common_name): Change to take char * as argument, adapt,
fix bug with empty name.
(gfc_match_common): Adapt to new data structures. Disallow
redeclaration of USE-associated COMMON-block. Fix bug with
empty common.
(var_element): Adapt to new common structures.
* match.h (gfc_get_common): Declare.
* module.c: Add 2004 to copyright years, add commons to module
file layout description.
(ab_attribute, attr_bits, mio_symbol_attributes): Remove code
for removed attributes.
(mio_symbol): Adapt to new way of storing common relations.
(load_commons): New function.
(read_module): Skip common list on first pass, load_commons at
second.
(write_commons): New function.
(write_module): Call write_commons().
* symbol.c (gfc_add_saved_comon, gfc_add_common): Remove
functions related to removed attributes.
(gfc_add_data): New function.
(gfc_clear_attr): Don't set removed attributes.
(gfc_copy_attr): Don't copy removed attributes.
(traverse_symtree): Remove.
(gfc_traverse_symtree): Don't traverse symbol
tree of the passed namespace, but require a symtree to be passed
instead. Unify with traverse_symtree.
(gfc_traverse_ns): Call gfc_traverse_symtree according to new
interface.
(save_symbol): Remove setting of removed attribute.
* trans-common.c (gfc_sym_mangled_common_id): Change to
take 'char *' argument instead of 'gfc_symbol'.
(build_common_decl, new_segment, translate_common): Adapt to new
data structures, add new
argument name.
(create_common): Adapt to new data structures, add new
argument name. Fix typo in intialization of derived types.
(finish_equivalences): Add second argument in call to
create_common.
(named_common): take 'gfc_symtree' instead of 'gfc_symbol'.
(gfc_trans_common): Adapt to new data structures.
* trans-decl.c (gfc_create_module_variables): Also output
symbols from commons.
Co-Authored-By: Andrew Vaught <andyv@firstinter.net>
From-SVN: r83871
2004-06-29 20:57:25 +02:00
|
|
|
}
|
|
|
|
gfc_common_head;
|
|
|
|
|
|
|
|
#define gfc_get_common_head() gfc_getmem(sizeof(gfc_common_head))
|
|
|
|
|
|
|
|
|
2004-08-17 17:34:12 +02:00
|
|
|
/* A list of all the alternate entry points for a procedure. */
|
|
|
|
|
|
|
|
typedef struct gfc_entry_list
|
|
|
|
{
|
|
|
|
/* The symbol for this entry point. */
|
|
|
|
gfc_symbol *sym;
|
|
|
|
/* The zero-based id of this entry point. */
|
|
|
|
int id;
|
|
|
|
/* The LABEL_EXPR marking this entry point. */
|
|
|
|
tree label;
|
|
|
|
/* The nest item in the list. */
|
|
|
|
struct gfc_entry_list *next;
|
|
|
|
}
|
|
|
|
gfc_entry_list;
|
|
|
|
|
|
|
|
#define gfc_get_entry_list() \
|
|
|
|
(gfc_entry_list *) gfc_getmem(sizeof(gfc_entry_list))
|
Andrew Vaught <andyv@firstinter.net>
2004-06-29 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de>
Andrew Vaught <andyv@firstinter.net>
PR fortran/13249
PR fortran/15481
* declc (gfc_match_save): Adapt to new common structures,
don't allow saving USE-associated common.
* dump-parse-tree (gfc_show_attr): (saved_)common are not
symbol attributes any longer.
(gfc_show_symbol): Don't show old-style commons any longer.
(gfc_show_namespace): Adapt call to gfc_traverse_symtree to new
interface.
* gfortran.h (symbol_attribute): Remove common and saved_common
attributes.
(gfc_symbol): Remove common_head element.
(gfc_common_head): New struct.
(gfc_get_common_head): New macro.
(gfc_symtree): Add field 'common' to union.
(gfc_namespace): Add field 'common_root'; change type of field
'blank_common' to blank_common.
(gfc_add_data): New prototype.
(gfc_traverse_symtree): Expect a symtree as first argument
instead of namespace.
* match.c (gfc_get_common): New function.
(match_common_name): Change to take char * as argument, adapt,
fix bug with empty name.
(gfc_match_common): Adapt to new data structures. Disallow
redeclaration of USE-associated COMMON-block. Fix bug with
empty common.
(var_element): Adapt to new common structures.
* match.h (gfc_get_common): Declare.
* module.c: Add 2004 to copyright years, add commons to module
file layout description.
(ab_attribute, attr_bits, mio_symbol_attributes): Remove code
for removed attributes.
(mio_symbol): Adapt to new way of storing common relations.
(load_commons): New function.
(read_module): Skip common list on first pass, load_commons at
second.
(write_commons): New function.
(write_module): Call write_commons().
* symbol.c (gfc_add_saved_comon, gfc_add_common): Remove
functions related to removed attributes.
(gfc_add_data): New function.
(gfc_clear_attr): Don't set removed attributes.
(gfc_copy_attr): Don't copy removed attributes.
(traverse_symtree): Remove.
(gfc_traverse_symtree): Don't traverse symbol
tree of the passed namespace, but require a symtree to be passed
instead. Unify with traverse_symtree.
(gfc_traverse_ns): Call gfc_traverse_symtree according to new
interface.
(save_symbol): Remove setting of removed attribute.
* trans-common.c (gfc_sym_mangled_common_id): Change to
take 'char *' argument instead of 'gfc_symbol'.
(build_common_decl, new_segment, translate_common): Adapt to new
data structures, add new
argument name.
(create_common): Adapt to new data structures, add new
argument name. Fix typo in intialization of derived types.
(finish_equivalences): Add second argument in call to
create_common.
(named_common): take 'gfc_symtree' instead of 'gfc_symbol'.
(gfc_trans_common): Adapt to new data structures.
* trans-decl.c (gfc_create_module_variables): Also output
symbols from commons.
Co-Authored-By: Andrew Vaught <andyv@firstinter.net>
From-SVN: r83871
2004-06-29 20:57:25 +02:00
|
|
|
|
2004-05-13 08:41:07 +02:00
|
|
|
/* Within a namespace, symbols are pointed to by symtree nodes that
|
|
|
|
are linked together in a balanced binary tree. There can be
|
|
|
|
several symtrees pointing to the same symbol node via USE
|
|
|
|
statements. */
|
|
|
|
|
|
|
|
#define BBT_HEADER(self) int priority; struct self *left, *right
|
|
|
|
|
|
|
|
typedef struct gfc_symtree
|
|
|
|
{
|
|
|
|
BBT_HEADER (gfc_symtree);
|
2005-02-24 19:26:27 +01:00
|
|
|
const char *name;
|
2004-05-13 08:41:07 +02:00
|
|
|
int ambiguous;
|
|
|
|
union
|
|
|
|
{
|
|
|
|
gfc_symbol *sym; /* Symbol associated with this node */
|
|
|
|
gfc_user_op *uop;
|
Andrew Vaught <andyv@firstinter.net>
2004-06-29 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de>
Andrew Vaught <andyv@firstinter.net>
PR fortran/13249
PR fortran/15481
* declc (gfc_match_save): Adapt to new common structures,
don't allow saving USE-associated common.
* dump-parse-tree (gfc_show_attr): (saved_)common are not
symbol attributes any longer.
(gfc_show_symbol): Don't show old-style commons any longer.
(gfc_show_namespace): Adapt call to gfc_traverse_symtree to new
interface.
* gfortran.h (symbol_attribute): Remove common and saved_common
attributes.
(gfc_symbol): Remove common_head element.
(gfc_common_head): New struct.
(gfc_get_common_head): New macro.
(gfc_symtree): Add field 'common' to union.
(gfc_namespace): Add field 'common_root'; change type of field
'blank_common' to blank_common.
(gfc_add_data): New prototype.
(gfc_traverse_symtree): Expect a symtree as first argument
instead of namespace.
* match.c (gfc_get_common): New function.
(match_common_name): Change to take char * as argument, adapt,
fix bug with empty name.
(gfc_match_common): Adapt to new data structures. Disallow
redeclaration of USE-associated COMMON-block. Fix bug with
empty common.
(var_element): Adapt to new common structures.
* match.h (gfc_get_common): Declare.
* module.c: Add 2004 to copyright years, add commons to module
file layout description.
(ab_attribute, attr_bits, mio_symbol_attributes): Remove code
for removed attributes.
(mio_symbol): Adapt to new way of storing common relations.
(load_commons): New function.
(read_module): Skip common list on first pass, load_commons at
second.
(write_commons): New function.
(write_module): Call write_commons().
* symbol.c (gfc_add_saved_comon, gfc_add_common): Remove
functions related to removed attributes.
(gfc_add_data): New function.
(gfc_clear_attr): Don't set removed attributes.
(gfc_copy_attr): Don't copy removed attributes.
(traverse_symtree): Remove.
(gfc_traverse_symtree): Don't traverse symbol
tree of the passed namespace, but require a symtree to be passed
instead. Unify with traverse_symtree.
(gfc_traverse_ns): Call gfc_traverse_symtree according to new
interface.
(save_symbol): Remove setting of removed attribute.
* trans-common.c (gfc_sym_mangled_common_id): Change to
take 'char *' argument instead of 'gfc_symbol'.
(build_common_decl, new_segment, translate_common): Adapt to new
data structures, add new
argument name.
(create_common): Adapt to new data structures, add new
argument name. Fix typo in intialization of derived types.
(finish_equivalences): Add second argument in call to
create_common.
(named_common): take 'gfc_symtree' instead of 'gfc_symbol'.
(gfc_trans_common): Adapt to new data structures.
* trans-decl.c (gfc_create_module_variables): Also output
symbols from commons.
Co-Authored-By: Andrew Vaught <andyv@firstinter.net>
From-SVN: r83871
2004-06-29 20:57:25 +02:00
|
|
|
gfc_common_head *common;
|
2004-05-13 08:41:07 +02:00
|
|
|
}
|
|
|
|
n;
|
|
|
|
|
|
|
|
}
|
|
|
|
gfc_symtree;
|
|
|
|
|
|
|
|
|
2004-08-17 17:34:12 +02:00
|
|
|
/* A namespace describes the contents of procedure, module or
|
|
|
|
interface block. */
|
|
|
|
/* ??? Anything else use these? */
|
|
|
|
|
2004-05-13 08:41:07 +02:00
|
|
|
typedef struct gfc_namespace
|
|
|
|
{
|
2004-08-13 19:24:09 +02:00
|
|
|
/* Tree containing all the symbols in this namespace. */
|
|
|
|
gfc_symtree *sym_root;
|
|
|
|
/* Tree containing all the user-defined operators in the namespace. */
|
|
|
|
gfc_symtree *uop_root;
|
|
|
|
/* Tree containing all the common blocks. */
|
|
|
|
gfc_symtree *common_root;
|
2004-05-13 08:41:07 +02:00
|
|
|
|
2004-08-13 19:24:09 +02:00
|
|
|
/* If set_flag[letter] is set, an implicit type has been set for letter. */
|
2004-05-13 08:41:07 +02:00
|
|
|
int set_flag[GFC_LETTERS];
|
2004-08-13 19:24:09 +02:00
|
|
|
/* Keeps track of the implicit types associated with the letters. */
|
|
|
|
gfc_typespec default_type[GFC_LETTERS];
|
2004-05-13 08:41:07 +02:00
|
|
|
|
2004-08-13 19:24:09 +02:00
|
|
|
/* If this is a namespace of a procedure, this points to the procedure. */
|
2004-05-13 08:41:07 +02:00
|
|
|
struct gfc_symbol *proc_name;
|
2004-08-13 19:24:09 +02:00
|
|
|
/* If this is the namespace of a unit which contains executable
|
|
|
|
code, this points to it. */
|
2004-05-13 08:41:07 +02:00
|
|
|
struct gfc_code *code;
|
2004-08-13 19:24:09 +02:00
|
|
|
|
|
|
|
/* Points to the equivalences set up in this namespace. */
|
2004-05-13 08:41:07 +02:00
|
|
|
struct gfc_equiv *equiv;
|
2004-08-13 19:24:09 +02:00
|
|
|
gfc_interface *operator[GFC_INTRINSIC_OPS];
|
|
|
|
|
|
|
|
/* Points to the parent namespace, i.e. the namespace of a module or
|
|
|
|
procedure in which the procedure belonging to this namespace is
|
|
|
|
contained. The parent namespace points to this namespace either
|
|
|
|
directly via CONTAINED, or indirectly via the chain built by
|
|
|
|
SIBLING. */
|
|
|
|
struct gfc_namespace *parent;
|
|
|
|
/* CONTAINED points to the first contained namespace. Sibling
|
|
|
|
namespaces are chained via SIBLING. */
|
|
|
|
struct gfc_namespace *contained, *sibling;
|
|
|
|
|
|
|
|
gfc_common_head blank_common;
|
2004-05-13 08:41:07 +02:00
|
|
|
gfc_access default_access, operator_access[GFC_INTRINSIC_OPS];
|
|
|
|
|
|
|
|
gfc_st_label *st_labels;
|
2004-08-29 18:58:39 +02:00
|
|
|
/* This list holds information about all the data initializers in
|
|
|
|
this namespace. */
|
2004-05-13 08:41:07 +02:00
|
|
|
struct gfc_data *data;
|
|
|
|
|
|
|
|
gfc_charlen *cl_list;
|
|
|
|
|
2005-04-29 09:23:39 +02:00
|
|
|
int save_all, seen_save, seen_implicit_none;
|
2004-08-17 17:34:12 +02:00
|
|
|
|
|
|
|
/* Normally we don't need to refcount namespaces. However when we read
|
|
|
|
a module containing a function with multiple entry points, this
|
|
|
|
will appear as several functions with the same formal namespace. */
|
|
|
|
int refs;
|
|
|
|
|
|
|
|
/* A list of all alternate entry points to this procedure (or NULL). */
|
|
|
|
gfc_entry_list *entries;
|
2004-08-30 21:08:41 +02:00
|
|
|
|
|
|
|
/* Set to 1 if namespace is a BLOCK DATA program unit. */
|
|
|
|
int is_block_data;
|
2004-05-13 08:41:07 +02:00
|
|
|
}
|
|
|
|
gfc_namespace;
|
|
|
|
|
|
|
|
extern gfc_namespace *gfc_current_ns;
|
|
|
|
|
2004-06-29 20:01:04 +02:00
|
|
|
/* Global symbols are symbols of global scope. Currently we only use
|
|
|
|
this to detect collisions already when parsing.
|
|
|
|
TODO: Extend to verify procedure calls. */
|
|
|
|
|
|
|
|
typedef struct gfc_gsymbol
|
|
|
|
{
|
|
|
|
BBT_HEADER(gfc_gsymbol);
|
|
|
|
|
2005-04-28 23:09:04 +02:00
|
|
|
const char *name;
|
2004-06-29 20:01:04 +02:00
|
|
|
enum { GSYM_UNKNOWN=1, GSYM_PROGRAM, GSYM_FUNCTION, GSYM_SUBROUTINE,
|
|
|
|
GSYM_MODULE, GSYM_COMMON, GSYM_BLOCK_DATA } type;
|
|
|
|
|
|
|
|
int defined, used;
|
|
|
|
locus where;
|
|
|
|
}
|
|
|
|
gfc_gsymbol;
|
|
|
|
|
|
|
|
extern gfc_gsymbol *gfc_gsym_root;
|
2004-05-13 08:41:07 +02:00
|
|
|
|
|
|
|
/* Information on interfaces being built. */
|
|
|
|
typedef struct
|
|
|
|
{
|
|
|
|
interface_type type;
|
|
|
|
gfc_symbol *sym;
|
|
|
|
gfc_namespace *ns;
|
|
|
|
gfc_user_op *uop;
|
|
|
|
gfc_intrinsic_op op;
|
|
|
|
}
|
|
|
|
gfc_interface_info;
|
|
|
|
|
|
|
|
extern gfc_interface_info current_interface;
|
|
|
|
|
|
|
|
|
|
|
|
/* Array reference. */
|
|
|
|
typedef struct gfc_array_ref
|
|
|
|
{
|
|
|
|
ar_type type;
|
|
|
|
int dimen; /* # of components in the reference */
|
|
|
|
locus where;
|
|
|
|
gfc_array_spec *as;
|
|
|
|
|
|
|
|
locus c_where[GFC_MAX_DIMENSIONS]; /* All expressions can be NULL */
|
|
|
|
struct gfc_expr *start[GFC_MAX_DIMENSIONS], *end[GFC_MAX_DIMENSIONS],
|
|
|
|
*stride[GFC_MAX_DIMENSIONS];
|
|
|
|
|
|
|
|
enum
|
|
|
|
{ DIMEN_ELEMENT = 1, DIMEN_RANGE, DIMEN_VECTOR, DIMEN_UNKNOWN }
|
|
|
|
dimen_type[GFC_MAX_DIMENSIONS];
|
|
|
|
|
|
|
|
struct gfc_expr *offset;
|
|
|
|
}
|
|
|
|
gfc_array_ref;
|
|
|
|
|
|
|
|
#define gfc_get_array_ref() gfc_getmem(sizeof(gfc_array_ref))
|
|
|
|
|
|
|
|
|
|
|
|
/* Component reference nodes. A variable is stored as an expression
|
|
|
|
node that points to the base symbol. After that, a singly linked
|
|
|
|
list of component reference nodes gives the variable's complete
|
|
|
|
resolution. The array_ref component may be present and comes
|
|
|
|
before the component component. */
|
|
|
|
|
|
|
|
typedef enum
|
|
|
|
{ REF_ARRAY, REF_COMPONENT, REF_SUBSTRING }
|
|
|
|
ref_type;
|
|
|
|
|
|
|
|
typedef struct gfc_ref
|
|
|
|
{
|
|
|
|
ref_type type;
|
|
|
|
|
|
|
|
union
|
|
|
|
{
|
|
|
|
struct gfc_array_ref ar;
|
|
|
|
|
|
|
|
struct
|
|
|
|
{
|
|
|
|
gfc_component *component;
|
|
|
|
gfc_symbol *sym;
|
|
|
|
}
|
|
|
|
c;
|
|
|
|
|
|
|
|
struct
|
|
|
|
{
|
|
|
|
struct gfc_expr *start, *end; /* Substring */
|
|
|
|
gfc_charlen *length;
|
|
|
|
}
|
|
|
|
ss;
|
|
|
|
|
|
|
|
}
|
|
|
|
u;
|
|
|
|
|
|
|
|
struct gfc_ref *next;
|
|
|
|
}
|
|
|
|
gfc_ref;
|
|
|
|
|
|
|
|
#define gfc_get_ref() gfc_getmem(sizeof(gfc_ref))
|
|
|
|
|
|
|
|
|
|
|
|
/* Structures representing intrinsic symbols and their arguments lists. */
|
|
|
|
typedef struct gfc_intrinsic_arg
|
|
|
|
{
|
|
|
|
char name[GFC_MAX_SYMBOL_LEN + 1];
|
|
|
|
|
|
|
|
gfc_typespec ts;
|
|
|
|
int optional;
|
|
|
|
gfc_actual_arglist *actual;
|
|
|
|
|
|
|
|
struct gfc_intrinsic_arg *next;
|
|
|
|
|
|
|
|
}
|
|
|
|
gfc_intrinsic_arg;
|
|
|
|
|
|
|
|
|
2004-08-13 19:24:09 +02:00
|
|
|
/* Specifies the various kinds of check functions used to verify the
|
|
|
|
argument lists of intrinsic functions. fX with X an integer refer
|
|
|
|
to check functions of intrinsics with X arguments. f1m is used for
|
|
|
|
the MAX and MIN intrinsics which can have an arbitrary number of
|
|
|
|
arguments, f3ml is used for the MINLOC and MAXLOC intrinsics as
|
|
|
|
these have special semantics. */
|
|
|
|
|
2004-05-13 08:41:07 +02:00
|
|
|
typedef union
|
|
|
|
{
|
2004-08-29 01:43:41 +02:00
|
|
|
try (*f0)(void);
|
2004-05-13 08:41:07 +02:00
|
|
|
try (*f1)(struct gfc_expr *);
|
|
|
|
try (*f1m)(gfc_actual_arglist *);
|
|
|
|
try (*f2)(struct gfc_expr *, struct gfc_expr *);
|
|
|
|
try (*f3)(struct gfc_expr *, struct gfc_expr *, struct gfc_expr *);
|
2004-06-14 17:56:50 +02:00
|
|
|
try (*f3ml)(gfc_actual_arglist *);
|
2004-08-19 17:31:37 +02:00
|
|
|
try (*f3red)(gfc_actual_arglist *);
|
2004-05-13 08:41:07 +02:00
|
|
|
try (*f4)(struct gfc_expr *, struct gfc_expr *, struct gfc_expr *,
|
|
|
|
struct gfc_expr *);
|
|
|
|
try (*f5)(struct gfc_expr *, struct gfc_expr *, struct gfc_expr *,
|
|
|
|
struct gfc_expr *, struct gfc_expr *);
|
|
|
|
}
|
|
|
|
gfc_check_f;
|
|
|
|
|
2004-08-13 19:24:09 +02:00
|
|
|
/* Like gfc_check_f, these specify the type of the simplification
|
|
|
|
function associated with an intrinsic. The fX are just like in
|
|
|
|
gfc_check_f. cc is used for type conversion functions. */
|
2004-05-13 08:41:07 +02:00
|
|
|
|
|
|
|
typedef union
|
|
|
|
{
|
2004-08-29 01:43:41 +02:00
|
|
|
struct gfc_expr *(*f0)(void);
|
2004-05-13 08:41:07 +02:00
|
|
|
struct gfc_expr *(*f1)(struct gfc_expr *);
|
|
|
|
struct gfc_expr *(*f2)(struct gfc_expr *, struct gfc_expr *);
|
|
|
|
struct gfc_expr *(*f3)(struct gfc_expr *, struct gfc_expr *,
|
|
|
|
struct gfc_expr *);
|
|
|
|
struct gfc_expr *(*f4)(struct gfc_expr *, struct gfc_expr *,
|
|
|
|
struct gfc_expr *, struct gfc_expr *);
|
|
|
|
struct gfc_expr *(*f5)(struct gfc_expr *, struct gfc_expr *,
|
|
|
|
struct gfc_expr *, struct gfc_expr *,
|
|
|
|
struct gfc_expr *);
|
|
|
|
struct gfc_expr *(*cc)(struct gfc_expr *, bt, int);
|
|
|
|
}
|
|
|
|
gfc_simplify_f;
|
|
|
|
|
2004-08-13 19:24:09 +02:00
|
|
|
/* Again like gfc_check_f, these specify the type of the resolution
|
data.c, [...]: Fix comment typos.
* data.c, decl.c, f95-lang.c, gfortran.h, match.c,
trans-array.c, trans-common.c, trans-expr.c,
trans-intrinsic.c, trans-stmt.c, trans-types.c, trans.h: Fix
comment typos. Follow spelling conventions.
From-SVN: r87492
2004-09-14 14:37:28 +02:00
|
|
|
function associated with an intrinsic. The fX are just like in
|
2004-08-13 19:24:09 +02:00
|
|
|
gfc_check_f. f1m is used for MIN and MAX, s1 is used for abort().
|
|
|
|
*/
|
2004-05-13 08:41:07 +02:00
|
|
|
|
|
|
|
typedef union
|
|
|
|
{
|
|
|
|
void (*f0)(struct gfc_expr *);
|
|
|
|
void (*f1)(struct gfc_expr *, struct gfc_expr *);
|
|
|
|
void (*f1m)(struct gfc_expr *, struct gfc_actual_arglist *);
|
|
|
|
void (*f2)(struct gfc_expr *, struct gfc_expr *, struct gfc_expr *);
|
|
|
|
void (*f3)(struct gfc_expr *, struct gfc_expr *, struct gfc_expr *,
|
|
|
|
struct gfc_expr *);
|
|
|
|
void (*f4)(struct gfc_expr *, struct gfc_expr *, struct gfc_expr *,
|
|
|
|
struct gfc_expr *, struct gfc_expr *);
|
|
|
|
void (*f5)(struct gfc_expr *, struct gfc_expr *, struct gfc_expr *,
|
|
|
|
struct gfc_expr *, struct gfc_expr *, struct gfc_expr *);
|
|
|
|
void (*s1)(struct gfc_code *);
|
|
|
|
}
|
|
|
|
gfc_resolve_f;
|
|
|
|
|
|
|
|
|
|
|
|
typedef struct gfc_intrinsic_sym
|
|
|
|
{
|
2005-02-24 19:26:27 +01:00
|
|
|
const char *name, *lib_name;
|
2004-05-13 08:41:07 +02:00
|
|
|
gfc_intrinsic_arg *formal;
|
|
|
|
gfc_typespec ts;
|
2005-08-24 22:04:20 +02:00
|
|
|
int elemental, pure, generic, specific, actual_ok, standard, noreturn;
|
2004-05-13 08:41:07 +02:00
|
|
|
|
|
|
|
gfc_simplify_f simplify;
|
|
|
|
gfc_check_f check;
|
|
|
|
gfc_resolve_f resolve;
|
|
|
|
struct gfc_intrinsic_sym *specific_head, *next;
|
|
|
|
gfc_generic_isym_id generic_id;
|
|
|
|
|
|
|
|
}
|
|
|
|
gfc_intrinsic_sym;
|
|
|
|
|
|
|
|
|
|
|
|
/* Expression nodes. The expression node types deserve explanations,
|
|
|
|
since the last couple can be easily misconstrued:
|
|
|
|
|
|
|
|
EXPR_OP Operator node pointing to one or two other nodes
|
|
|
|
EXPR_FUNCTION Function call, symbol points to function's name
|
|
|
|
EXPR_CONSTANT A scalar constant: Logical, String, Real, Int or Complex
|
|
|
|
EXPR_VARIABLE An Lvalue with a root symbol and possible reference list
|
|
|
|
which expresses structure, array and substring refs.
|
|
|
|
EXPR_NULL The NULL pointer value (which also has a basic type).
|
|
|
|
EXPR_SUBSTRING A substring of a constant string
|
|
|
|
EXPR_STRUCTURE A structure constructor
|
|
|
|
EXPR_ARRAY An array constructor. */
|
|
|
|
|
|
|
|
#include <gmp.h>
|
arith.c: Add #define for model numbers.
2004-08-06 Steven G. Kargl <kargls@comcast.net>
* arith.c: Add #define for model numbers. Remove global GMP variables.
(natural_logarithm,common_logarithm,exponential,sine,
cosine,arctangent,hypercos,hypersine ): Remove.
(gfc_mpfr_to_mpz,gfc_set_model_kind,gfc_set_model): New functions.
(arctangent2,gfc_arith_init_1,gfc_arith_done_1
gfc_check_real_range, gfc_constant_result, gfc_range_check,
gfc_arith_uminus,gfc_arith_plus, gfc_arith_minus, gfc_arith_times,
gfc_arith_divide,complex_reciprocal,complex_pow_ui,
gfc_arith_power,gfc_compare_expr,compare_complex,gfc_convert_real,
gfc_convert_complex,gfc_int2real,gfc_int2complex,
gfc_real2int,gfc_real2real,gfc_real2complex,
gfc_complex2int,gfc_complex2real,gfc_complex2complex): Convert GMP
to MPFR, use new functions.
* arith.h: Remove extern global variables.
(natural_logarithm,common_logarithm,exponential, sine, cosine,
arctangent,hypercos,hypersine): Remove prototypes.
(arctangent2): Update prototype from GMP to MPFR.
(gfc_mpfr_to_mpz, gfc_set_model_kind,gfc_set_model): Add prototypes.
* dump-parse-tree.c (gfc_show_expr): Convert GMP to MPFR.
* expr.c (free_expr0,gfc_copy_expr): Convert GMP to MPFR.
* gfortran.h (GFC_REAL_BITS): Remove.
(arith): Add ARITH_NAN.
Include mpfr.h. Define GFC_RND_MODE.
Rename GCC_GFORTRAN_H GFC_GFC_H.
(gfc_expr): Convert GMP to MPFR.
* module.c: Add arith.h, correct type in comment.
(mio_gmp_real): Convert GMP to MPFR.
(mio_expr): Use gfc_set_model_kind().
* primary.c: Update copyright date with 2004.
(match_real_constant,match_const_complex_part): Convert GMP to MPFR.
* simplify.c: Remove global GMP variables
(gfc_simplify_abs,gfc_simplify_acos,gfc_simplify_aimag,
gfc_simplify_aint,gfc_simplify_dint,gfc_simplify_anint,
gfc_simplify_dnint,gfc_simplify_asin,gfc_simplify_atan,
gfc_simplify_atan2,gfc_simplify_ceiling,simplify_cmplx,
gfc_simplify_conjg,gfc_simplify_cos,gfc_simplify_cosh,
gfc_simplify_dim,gfc_simplify_dprod,gfc_simplify_epsilon,
gfc_simplify_exp,gfc_simplify_exponent,gfc_simplify_floor,
gfc_simplify_fraction,gfc_simplify_huge,gfc_simplify_int,
gfc_simplify_ifix,gfc_simplify_idint,gfc_simplify_log,
gfc_simplify_log10,simplify_min_max,gfc_simplify_mod,
gfc_simplify_modulo,gfc_simplify_nearest,simplify_nint,
gfc_simplify_rrspacing,gfc_simplify_scale,
gfc_simplify_set_exponent,gfc_simplify_sign,gfc_simplify_sin,
gfc_simplify_sinh,gfc_simplify_spacing,gfc_simplify_sqrt,
gfc_simplify_tan,gfc_simplify_tanh,gfc_simplify_tiny,
gfc_simplify_init_1,gfc_simplify_done_1): Convert GMP to MPFR.
Use new functions.
* trans-const.c (gfc_conv_mpfr_to_tree): Rename from
gfc_conv_mpf_to_tree. Convert it to use MPFR
(gfc_conv_constant_to_tree): Use it.
* trans-const.h: Update prototype for gfc_conv_mpfr_to_tree().
* trans-intrinsic.c: Add arith.h, remove gmp.h
(gfc_conv_intrinsic_aint,gfc_conv_intrinsic_mod): Convert GMP to MPFR.
From-SVN: r85652
2004-08-06 22:36:05 +02:00
|
|
|
#include <mpfr.h>
|
|
|
|
#define GFC_RND_MODE GMP_RNDN
|
2004-05-13 08:41:07 +02:00
|
|
|
|
|
|
|
typedef struct gfc_expr
|
|
|
|
{
|
|
|
|
expr_t expr_type;
|
|
|
|
|
|
|
|
gfc_typespec ts; /* These two refer to the overall expression */
|
|
|
|
|
|
|
|
int rank;
|
|
|
|
mpz_t *shape; /* Can be NULL if shape is unknown at compile time */
|
|
|
|
|
|
|
|
/* Nonnull for functions and structure constructors */
|
|
|
|
gfc_symtree *symtree;
|
|
|
|
|
|
|
|
gfc_ref *ref;
|
|
|
|
|
|
|
|
locus where;
|
|
|
|
|
2005-07-07 09:54:58 +02:00
|
|
|
/* True if it is converted from Hollerith constant. */
|
|
|
|
unsigned int from_H : 1;
|
|
|
|
|
2004-05-13 08:41:07 +02:00
|
|
|
union
|
|
|
|
{
|
|
|
|
int logical;
|
arith.c: Add #define for model numbers.
2004-08-06 Steven G. Kargl <kargls@comcast.net>
* arith.c: Add #define for model numbers. Remove global GMP variables.
(natural_logarithm,common_logarithm,exponential,sine,
cosine,arctangent,hypercos,hypersine ): Remove.
(gfc_mpfr_to_mpz,gfc_set_model_kind,gfc_set_model): New functions.
(arctangent2,gfc_arith_init_1,gfc_arith_done_1
gfc_check_real_range, gfc_constant_result, gfc_range_check,
gfc_arith_uminus,gfc_arith_plus, gfc_arith_minus, gfc_arith_times,
gfc_arith_divide,complex_reciprocal,complex_pow_ui,
gfc_arith_power,gfc_compare_expr,compare_complex,gfc_convert_real,
gfc_convert_complex,gfc_int2real,gfc_int2complex,
gfc_real2int,gfc_real2real,gfc_real2complex,
gfc_complex2int,gfc_complex2real,gfc_complex2complex): Convert GMP
to MPFR, use new functions.
* arith.h: Remove extern global variables.
(natural_logarithm,common_logarithm,exponential, sine, cosine,
arctangent,hypercos,hypersine): Remove prototypes.
(arctangent2): Update prototype from GMP to MPFR.
(gfc_mpfr_to_mpz, gfc_set_model_kind,gfc_set_model): Add prototypes.
* dump-parse-tree.c (gfc_show_expr): Convert GMP to MPFR.
* expr.c (free_expr0,gfc_copy_expr): Convert GMP to MPFR.
* gfortran.h (GFC_REAL_BITS): Remove.
(arith): Add ARITH_NAN.
Include mpfr.h. Define GFC_RND_MODE.
Rename GCC_GFORTRAN_H GFC_GFC_H.
(gfc_expr): Convert GMP to MPFR.
* module.c: Add arith.h, correct type in comment.
(mio_gmp_real): Convert GMP to MPFR.
(mio_expr): Use gfc_set_model_kind().
* primary.c: Update copyright date with 2004.
(match_real_constant,match_const_complex_part): Convert GMP to MPFR.
* simplify.c: Remove global GMP variables
(gfc_simplify_abs,gfc_simplify_acos,gfc_simplify_aimag,
gfc_simplify_aint,gfc_simplify_dint,gfc_simplify_anint,
gfc_simplify_dnint,gfc_simplify_asin,gfc_simplify_atan,
gfc_simplify_atan2,gfc_simplify_ceiling,simplify_cmplx,
gfc_simplify_conjg,gfc_simplify_cos,gfc_simplify_cosh,
gfc_simplify_dim,gfc_simplify_dprod,gfc_simplify_epsilon,
gfc_simplify_exp,gfc_simplify_exponent,gfc_simplify_floor,
gfc_simplify_fraction,gfc_simplify_huge,gfc_simplify_int,
gfc_simplify_ifix,gfc_simplify_idint,gfc_simplify_log,
gfc_simplify_log10,simplify_min_max,gfc_simplify_mod,
gfc_simplify_modulo,gfc_simplify_nearest,simplify_nint,
gfc_simplify_rrspacing,gfc_simplify_scale,
gfc_simplify_set_exponent,gfc_simplify_sign,gfc_simplify_sin,
gfc_simplify_sinh,gfc_simplify_spacing,gfc_simplify_sqrt,
gfc_simplify_tan,gfc_simplify_tanh,gfc_simplify_tiny,
gfc_simplify_init_1,gfc_simplify_done_1): Convert GMP to MPFR.
Use new functions.
* trans-const.c (gfc_conv_mpfr_to_tree): Rename from
gfc_conv_mpf_to_tree. Convert it to use MPFR
(gfc_conv_constant_to_tree): Use it.
* trans-const.h: Update prototype for gfc_conv_mpfr_to_tree().
* trans-intrinsic.c: Add arith.h, remove gmp.h
(gfc_conv_intrinsic_aint,gfc_conv_intrinsic_mod): Convert GMP to MPFR.
From-SVN: r85652
2004-08-06 22:36:05 +02:00
|
|
|
mpz_t integer;
|
|
|
|
|
|
|
|
mpfr_t real;
|
2004-05-13 08:41:07 +02:00
|
|
|
|
|
|
|
struct
|
|
|
|
{
|
arith.c: Add #define for model numbers.
2004-08-06 Steven G. Kargl <kargls@comcast.net>
* arith.c: Add #define for model numbers. Remove global GMP variables.
(natural_logarithm,common_logarithm,exponential,sine,
cosine,arctangent,hypercos,hypersine ): Remove.
(gfc_mpfr_to_mpz,gfc_set_model_kind,gfc_set_model): New functions.
(arctangent2,gfc_arith_init_1,gfc_arith_done_1
gfc_check_real_range, gfc_constant_result, gfc_range_check,
gfc_arith_uminus,gfc_arith_plus, gfc_arith_minus, gfc_arith_times,
gfc_arith_divide,complex_reciprocal,complex_pow_ui,
gfc_arith_power,gfc_compare_expr,compare_complex,gfc_convert_real,
gfc_convert_complex,gfc_int2real,gfc_int2complex,
gfc_real2int,gfc_real2real,gfc_real2complex,
gfc_complex2int,gfc_complex2real,gfc_complex2complex): Convert GMP
to MPFR, use new functions.
* arith.h: Remove extern global variables.
(natural_logarithm,common_logarithm,exponential, sine, cosine,
arctangent,hypercos,hypersine): Remove prototypes.
(arctangent2): Update prototype from GMP to MPFR.
(gfc_mpfr_to_mpz, gfc_set_model_kind,gfc_set_model): Add prototypes.
* dump-parse-tree.c (gfc_show_expr): Convert GMP to MPFR.
* expr.c (free_expr0,gfc_copy_expr): Convert GMP to MPFR.
* gfortran.h (GFC_REAL_BITS): Remove.
(arith): Add ARITH_NAN.
Include mpfr.h. Define GFC_RND_MODE.
Rename GCC_GFORTRAN_H GFC_GFC_H.
(gfc_expr): Convert GMP to MPFR.
* module.c: Add arith.h, correct type in comment.
(mio_gmp_real): Convert GMP to MPFR.
(mio_expr): Use gfc_set_model_kind().
* primary.c: Update copyright date with 2004.
(match_real_constant,match_const_complex_part): Convert GMP to MPFR.
* simplify.c: Remove global GMP variables
(gfc_simplify_abs,gfc_simplify_acos,gfc_simplify_aimag,
gfc_simplify_aint,gfc_simplify_dint,gfc_simplify_anint,
gfc_simplify_dnint,gfc_simplify_asin,gfc_simplify_atan,
gfc_simplify_atan2,gfc_simplify_ceiling,simplify_cmplx,
gfc_simplify_conjg,gfc_simplify_cos,gfc_simplify_cosh,
gfc_simplify_dim,gfc_simplify_dprod,gfc_simplify_epsilon,
gfc_simplify_exp,gfc_simplify_exponent,gfc_simplify_floor,
gfc_simplify_fraction,gfc_simplify_huge,gfc_simplify_int,
gfc_simplify_ifix,gfc_simplify_idint,gfc_simplify_log,
gfc_simplify_log10,simplify_min_max,gfc_simplify_mod,
gfc_simplify_modulo,gfc_simplify_nearest,simplify_nint,
gfc_simplify_rrspacing,gfc_simplify_scale,
gfc_simplify_set_exponent,gfc_simplify_sign,gfc_simplify_sin,
gfc_simplify_sinh,gfc_simplify_spacing,gfc_simplify_sqrt,
gfc_simplify_tan,gfc_simplify_tanh,gfc_simplify_tiny,
gfc_simplify_init_1,gfc_simplify_done_1): Convert GMP to MPFR.
Use new functions.
* trans-const.c (gfc_conv_mpfr_to_tree): Rename from
gfc_conv_mpf_to_tree. Convert it to use MPFR
(gfc_conv_constant_to_tree): Use it.
* trans-const.h: Update prototype for gfc_conv_mpfr_to_tree().
* trans-intrinsic.c: Add arith.h, remove gmp.h
(gfc_conv_intrinsic_aint,gfc_conv_intrinsic_mod): Convert GMP to MPFR.
From-SVN: r85652
2004-08-06 22:36:05 +02:00
|
|
|
mpfr_t r, i;
|
2004-05-13 08:41:07 +02:00
|
|
|
}
|
|
|
|
complex;
|
|
|
|
|
gfortran.h (gfc_expr): Move 'operator'...
* gfortran.h (gfc_expr): Move 'operator', 'op1', 'op2', and 'uop'
fields into new struct 'op' inside the 'value' union.
* arith.c (eval_intrinsic): Adapt all users.
* dependency.c (gfc_check_dependency): Likewise.
* dump-parse-tree.c (gfc_show_expr): Likewise.
* expr.c (gfc_get_expr): Don't clear removed fields.
(free_expr0, gfc_copy_expr, gfc_type_convert_binary,
gfc_is_constant_expr, simplify_intrinsic_op, check_init_expr,
check_intrinsic_op): Adapt to new field names.
* interface.c (gfc_extend_expr): Likewise. Also explicitly
nullify 'esym' and 'isym' fields of new function call.
* iresolve.c (gfc_resolve_dot_product, gfc_resolve_matmul):
Adapt to renamed structure fields.
* matchexp.c (build_node, match_level_1, match_expr): Likewise.
* module.c (mio_expr): Likewise.
* resolve.c (resolve_operator): Likewise.
(gfc_find_forall_index): Likewise. Only look through operands
if dealing with EXPR_OP
* trans-array.c (gfc_walk_op_expr): Adapt to renamed fields.
* trans-expr.c (gfc_conv_unary_op, gfc_conv_power_op,
gfc_conv_concat_op, gfc_conv_expr_op): Likewise.
From-SVN: r95471
2005-02-23 22:34:11 +01:00
|
|
|
struct
|
|
|
|
{
|
|
|
|
gfc_intrinsic_op operator;
|
|
|
|
gfc_user_op *uop;
|
|
|
|
struct gfc_expr *op1, *op2;
|
|
|
|
}
|
|
|
|
op;
|
|
|
|
|
2004-05-13 08:41:07 +02:00
|
|
|
struct
|
|
|
|
{
|
|
|
|
gfc_actual_arglist *actual;
|
2004-12-15 04:56:06 +01:00
|
|
|
const char *name; /* Points to the ultimate name of the function */
|
2004-05-13 08:41:07 +02:00
|
|
|
gfc_intrinsic_sym *isym;
|
|
|
|
gfc_symbol *esym;
|
|
|
|
}
|
|
|
|
function;
|
|
|
|
|
|
|
|
struct
|
|
|
|
{
|
|
|
|
int length;
|
|
|
|
char *string;
|
|
|
|
}
|
|
|
|
character;
|
|
|
|
|
|
|
|
struct gfc_constructor *constructor;
|
|
|
|
}
|
|
|
|
value;
|
|
|
|
|
|
|
|
}
|
|
|
|
gfc_expr;
|
|
|
|
|
|
|
|
|
2004-08-08 14:28:25 +02:00
|
|
|
#define gfc_get_shape(rank) ((mpz_t *) gfc_getmem((rank)*sizeof(mpz_t)))
|
2004-05-13 08:41:07 +02:00
|
|
|
|
|
|
|
/* Structures for information associated with different kinds of
|
|
|
|
numbers. The first set of integer parameters define all there is
|
|
|
|
to know about a particular kind. The rest of the elements are
|
|
|
|
computed from the first elements. */
|
|
|
|
|
|
|
|
typedef struct
|
|
|
|
{
|
Make-lang.in (fortran/f95-lang.o): Update dependencies.
* Make-lang.in (fortran/f95-lang.o): Update dependencies.
(fortran/trans-decl.o, fortran/trans-types.o): Likewise.
* gfortran.h (gfc_integer_info): Add c_char, c_short, c_int,
c_long, c_long_long.
(gfc_logical_info): Add c_bool.
(gfc_real_info): Add mode_precision, c_float, c_double, c_long_double.
* trans-array.c (gfc_array_allocate): Use TYPE_PRECISION
rather than gfc_int[48]_type_node for allocate choice.
* trans-decl.c (gfc_build_intrinsic_function_decls): Cache
local copies of some kind type nodes.
(gfc_build_builtin_function_decls): Likewise.
* trans-expr.c (gfc_conv_power_op): Likewise.
* trans-intrinsic.c (gfc_conv_intrinsic_index,
gfc_conv_intrinsic_scan, gfc_conv_intrinsic_verify,
gfc_conv_intrinsic_trim, gfc_conv_intrinsic_repeat): Likewise.
* trans-stmt.c (gfc_trans_pause, gfc_trans_stop,
gfc_trans_character_select, gfc_trans_allocate): Likewise.
* trans-io.c (gfc_pint4_type_node): Move into ...
(gfc_build_io_library_fndecls): ... here. Cache local copies of
some kind type nodes.
* trans-types.c (gfc_type_nodes): Remove.
(gfc_character1_type_node, gfc_strlen_type_node): New.
(gfc_integer_types, gfc_logical_types): New.
(gfc_real_types, gfc_complex_types): New.
(gfc_init_kinds): Fill in real mode_precision.
(gfc_build_int_type, gfc_build_real_type): New.
(gfc_build_complex_type, gfc_build_logical_type): New.
(c_size_t_size): New.
(gfc_init_types): Loop over kinds.
(gfc_get_int_type, gfc_get_real_type): Use gfc_validate_kind.
(gfc_get_complex_type, gfc_get_logical_type): Likewise.
(gfc_get_character_type_len): Likewise.
(gfc_type_for_size): Loop over kinds; use a reduced set of
unsigned type nodes.
(gfc_type_for_mode): Loop over kinds.
(gfc_signed_or_unsigned_type): Use gfc_type_for_size.
(gfc_unsigned_type, gfc_signed_type): Use gfc_signed_or_unsigned_type.
* trans-types.h (F95_INT1_TYPE, F95_INT2_TYPE, F95_INT4_TYPE,
F95_INT8_TYPE, F95_INT16_TYPE, F95_REAL4_TYPE, F95_REAL8_TYPE,
F95_REAl16_TYPE, F95_COMPLEX4_TYPE, F95_COMPLEX8_TYPE,
F95_COMPLEX16_TYPE, F95_LOGICAL1_TYPE, F95_LOGICAL2_TYPE,
F95_LOGICAL4_TYPE, F95_LOGICAL8_TYPE, F95_LOGICAL16_TYPE,
F95_CHARACTER1_TYPE, NUM_F95_TYPES, gfc_type_nodes,
gfc_int1_type_node, gfc_int2_type_node, gfc_int4_type_node,
gfc_int8_type_node, gfc_int16_type_node, gfc_real4_type_node,
gfc_real8_type_node, gfc_real16_type_node, gfc_complex4_type_node,
gfc_complex8_type_node, gfc_complex16_type_node,
gfc_logical1_type_node, gfc_logical2_type_node,
gfc_logical4_type_node, gfc_logical8_type_node,
gfc_logical16_type_node, gfc_strlen_kind): Remove.
(gfc_character1_type_node): Turn in to a variable.
(gfc_strlen_type_node): Likewise.
From-SVN: r86806
2004-08-30 23:59:08 +02:00
|
|
|
/* Values really representable by the target. */
|
2004-10-28 23:43:46 +02:00
|
|
|
mpz_t huge, pedantic_min_int, min_int, max_int;
|
Make-lang.in (fortran/f95-lang.o): Update dependencies.
* Make-lang.in (fortran/f95-lang.o): Update dependencies.
(fortran/trans-decl.o, fortran/trans-types.o): Likewise.
* gfortran.h (gfc_integer_info): Add c_char, c_short, c_int,
c_long, c_long_long.
(gfc_logical_info): Add c_bool.
(gfc_real_info): Add mode_precision, c_float, c_double, c_long_double.
* trans-array.c (gfc_array_allocate): Use TYPE_PRECISION
rather than gfc_int[48]_type_node for allocate choice.
* trans-decl.c (gfc_build_intrinsic_function_decls): Cache
local copies of some kind type nodes.
(gfc_build_builtin_function_decls): Likewise.
* trans-expr.c (gfc_conv_power_op): Likewise.
* trans-intrinsic.c (gfc_conv_intrinsic_index,
gfc_conv_intrinsic_scan, gfc_conv_intrinsic_verify,
gfc_conv_intrinsic_trim, gfc_conv_intrinsic_repeat): Likewise.
* trans-stmt.c (gfc_trans_pause, gfc_trans_stop,
gfc_trans_character_select, gfc_trans_allocate): Likewise.
* trans-io.c (gfc_pint4_type_node): Move into ...
(gfc_build_io_library_fndecls): ... here. Cache local copies of
some kind type nodes.
* trans-types.c (gfc_type_nodes): Remove.
(gfc_character1_type_node, gfc_strlen_type_node): New.
(gfc_integer_types, gfc_logical_types): New.
(gfc_real_types, gfc_complex_types): New.
(gfc_init_kinds): Fill in real mode_precision.
(gfc_build_int_type, gfc_build_real_type): New.
(gfc_build_complex_type, gfc_build_logical_type): New.
(c_size_t_size): New.
(gfc_init_types): Loop over kinds.
(gfc_get_int_type, gfc_get_real_type): Use gfc_validate_kind.
(gfc_get_complex_type, gfc_get_logical_type): Likewise.
(gfc_get_character_type_len): Likewise.
(gfc_type_for_size): Loop over kinds; use a reduced set of
unsigned type nodes.
(gfc_type_for_mode): Loop over kinds.
(gfc_signed_or_unsigned_type): Use gfc_type_for_size.
(gfc_unsigned_type, gfc_signed_type): Use gfc_signed_or_unsigned_type.
* trans-types.h (F95_INT1_TYPE, F95_INT2_TYPE, F95_INT4_TYPE,
F95_INT8_TYPE, F95_INT16_TYPE, F95_REAL4_TYPE, F95_REAL8_TYPE,
F95_REAl16_TYPE, F95_COMPLEX4_TYPE, F95_COMPLEX8_TYPE,
F95_COMPLEX16_TYPE, F95_LOGICAL1_TYPE, F95_LOGICAL2_TYPE,
F95_LOGICAL4_TYPE, F95_LOGICAL8_TYPE, F95_LOGICAL16_TYPE,
F95_CHARACTER1_TYPE, NUM_F95_TYPES, gfc_type_nodes,
gfc_int1_type_node, gfc_int2_type_node, gfc_int4_type_node,
gfc_int8_type_node, gfc_int16_type_node, gfc_real4_type_node,
gfc_real8_type_node, gfc_real16_type_node, gfc_complex4_type_node,
gfc_complex8_type_node, gfc_complex16_type_node,
gfc_logical1_type_node, gfc_logical2_type_node,
gfc_logical4_type_node, gfc_logical8_type_node,
gfc_logical16_type_node, gfc_strlen_kind): Remove.
(gfc_character1_type_node): Turn in to a variable.
(gfc_strlen_type_node): Likewise.
From-SVN: r86806
2004-08-30 23:59:08 +02:00
|
|
|
|
|
|
|
int kind, radix, digits, bit_size, range;
|
|
|
|
|
|
|
|
/* True if the C type of the given name maps to this precision.
|
|
|
|
Note that more than one bit can be set. */
|
|
|
|
unsigned int c_char : 1;
|
|
|
|
unsigned int c_short : 1;
|
|
|
|
unsigned int c_int : 1;
|
|
|
|
unsigned int c_long : 1;
|
|
|
|
unsigned int c_long_long : 1;
|
2004-05-13 08:41:07 +02:00
|
|
|
}
|
|
|
|
gfc_integer_info;
|
|
|
|
|
|
|
|
extern gfc_integer_info gfc_integer_kinds[];
|
|
|
|
|
|
|
|
|
|
|
|
typedef struct
|
|
|
|
{
|
|
|
|
int kind, bit_size;
|
|
|
|
|
Make-lang.in (fortran/f95-lang.o): Update dependencies.
* Make-lang.in (fortran/f95-lang.o): Update dependencies.
(fortran/trans-decl.o, fortran/trans-types.o): Likewise.
* gfortran.h (gfc_integer_info): Add c_char, c_short, c_int,
c_long, c_long_long.
(gfc_logical_info): Add c_bool.
(gfc_real_info): Add mode_precision, c_float, c_double, c_long_double.
* trans-array.c (gfc_array_allocate): Use TYPE_PRECISION
rather than gfc_int[48]_type_node for allocate choice.
* trans-decl.c (gfc_build_intrinsic_function_decls): Cache
local copies of some kind type nodes.
(gfc_build_builtin_function_decls): Likewise.
* trans-expr.c (gfc_conv_power_op): Likewise.
* trans-intrinsic.c (gfc_conv_intrinsic_index,
gfc_conv_intrinsic_scan, gfc_conv_intrinsic_verify,
gfc_conv_intrinsic_trim, gfc_conv_intrinsic_repeat): Likewise.
* trans-stmt.c (gfc_trans_pause, gfc_trans_stop,
gfc_trans_character_select, gfc_trans_allocate): Likewise.
* trans-io.c (gfc_pint4_type_node): Move into ...
(gfc_build_io_library_fndecls): ... here. Cache local copies of
some kind type nodes.
* trans-types.c (gfc_type_nodes): Remove.
(gfc_character1_type_node, gfc_strlen_type_node): New.
(gfc_integer_types, gfc_logical_types): New.
(gfc_real_types, gfc_complex_types): New.
(gfc_init_kinds): Fill in real mode_precision.
(gfc_build_int_type, gfc_build_real_type): New.
(gfc_build_complex_type, gfc_build_logical_type): New.
(c_size_t_size): New.
(gfc_init_types): Loop over kinds.
(gfc_get_int_type, gfc_get_real_type): Use gfc_validate_kind.
(gfc_get_complex_type, gfc_get_logical_type): Likewise.
(gfc_get_character_type_len): Likewise.
(gfc_type_for_size): Loop over kinds; use a reduced set of
unsigned type nodes.
(gfc_type_for_mode): Loop over kinds.
(gfc_signed_or_unsigned_type): Use gfc_type_for_size.
(gfc_unsigned_type, gfc_signed_type): Use gfc_signed_or_unsigned_type.
* trans-types.h (F95_INT1_TYPE, F95_INT2_TYPE, F95_INT4_TYPE,
F95_INT8_TYPE, F95_INT16_TYPE, F95_REAL4_TYPE, F95_REAL8_TYPE,
F95_REAl16_TYPE, F95_COMPLEX4_TYPE, F95_COMPLEX8_TYPE,
F95_COMPLEX16_TYPE, F95_LOGICAL1_TYPE, F95_LOGICAL2_TYPE,
F95_LOGICAL4_TYPE, F95_LOGICAL8_TYPE, F95_LOGICAL16_TYPE,
F95_CHARACTER1_TYPE, NUM_F95_TYPES, gfc_type_nodes,
gfc_int1_type_node, gfc_int2_type_node, gfc_int4_type_node,
gfc_int8_type_node, gfc_int16_type_node, gfc_real4_type_node,
gfc_real8_type_node, gfc_real16_type_node, gfc_complex4_type_node,
gfc_complex8_type_node, gfc_complex16_type_node,
gfc_logical1_type_node, gfc_logical2_type_node,
gfc_logical4_type_node, gfc_logical8_type_node,
gfc_logical16_type_node, gfc_strlen_kind): Remove.
(gfc_character1_type_node): Turn in to a variable.
(gfc_strlen_type_node): Likewise.
From-SVN: r86806
2004-08-30 23:59:08 +02:00
|
|
|
/* True if the C++ type bool, C99 type _Bool, maps to this precision. */
|
|
|
|
unsigned int c_bool : 1;
|
2004-05-13 08:41:07 +02:00
|
|
|
}
|
|
|
|
gfc_logical_info;
|
|
|
|
|
|
|
|
extern gfc_logical_info gfc_logical_kinds[];
|
|
|
|
|
|
|
|
|
|
|
|
typedef struct
|
|
|
|
{
|
2005-04-14 18:29:31 +02:00
|
|
|
mpfr_t epsilon, huge, tiny, subnormal;
|
2004-05-13 08:41:07 +02:00
|
|
|
int kind, radix, digits, min_exponent, max_exponent;
|
|
|
|
int range, precision;
|
Make-lang.in (fortran/f95-lang.o): Update dependencies.
* Make-lang.in (fortran/f95-lang.o): Update dependencies.
(fortran/trans-decl.o, fortran/trans-types.o): Likewise.
* gfortran.h (gfc_integer_info): Add c_char, c_short, c_int,
c_long, c_long_long.
(gfc_logical_info): Add c_bool.
(gfc_real_info): Add mode_precision, c_float, c_double, c_long_double.
* trans-array.c (gfc_array_allocate): Use TYPE_PRECISION
rather than gfc_int[48]_type_node for allocate choice.
* trans-decl.c (gfc_build_intrinsic_function_decls): Cache
local copies of some kind type nodes.
(gfc_build_builtin_function_decls): Likewise.
* trans-expr.c (gfc_conv_power_op): Likewise.
* trans-intrinsic.c (gfc_conv_intrinsic_index,
gfc_conv_intrinsic_scan, gfc_conv_intrinsic_verify,
gfc_conv_intrinsic_trim, gfc_conv_intrinsic_repeat): Likewise.
* trans-stmt.c (gfc_trans_pause, gfc_trans_stop,
gfc_trans_character_select, gfc_trans_allocate): Likewise.
* trans-io.c (gfc_pint4_type_node): Move into ...
(gfc_build_io_library_fndecls): ... here. Cache local copies of
some kind type nodes.
* trans-types.c (gfc_type_nodes): Remove.
(gfc_character1_type_node, gfc_strlen_type_node): New.
(gfc_integer_types, gfc_logical_types): New.
(gfc_real_types, gfc_complex_types): New.
(gfc_init_kinds): Fill in real mode_precision.
(gfc_build_int_type, gfc_build_real_type): New.
(gfc_build_complex_type, gfc_build_logical_type): New.
(c_size_t_size): New.
(gfc_init_types): Loop over kinds.
(gfc_get_int_type, gfc_get_real_type): Use gfc_validate_kind.
(gfc_get_complex_type, gfc_get_logical_type): Likewise.
(gfc_get_character_type_len): Likewise.
(gfc_type_for_size): Loop over kinds; use a reduced set of
unsigned type nodes.
(gfc_type_for_mode): Loop over kinds.
(gfc_signed_or_unsigned_type): Use gfc_type_for_size.
(gfc_unsigned_type, gfc_signed_type): Use gfc_signed_or_unsigned_type.
* trans-types.h (F95_INT1_TYPE, F95_INT2_TYPE, F95_INT4_TYPE,
F95_INT8_TYPE, F95_INT16_TYPE, F95_REAL4_TYPE, F95_REAL8_TYPE,
F95_REAl16_TYPE, F95_COMPLEX4_TYPE, F95_COMPLEX8_TYPE,
F95_COMPLEX16_TYPE, F95_LOGICAL1_TYPE, F95_LOGICAL2_TYPE,
F95_LOGICAL4_TYPE, F95_LOGICAL8_TYPE, F95_LOGICAL16_TYPE,
F95_CHARACTER1_TYPE, NUM_F95_TYPES, gfc_type_nodes,
gfc_int1_type_node, gfc_int2_type_node, gfc_int4_type_node,
gfc_int8_type_node, gfc_int16_type_node, gfc_real4_type_node,
gfc_real8_type_node, gfc_real16_type_node, gfc_complex4_type_node,
gfc_complex8_type_node, gfc_complex16_type_node,
gfc_logical1_type_node, gfc_logical2_type_node,
gfc_logical4_type_node, gfc_logical8_type_node,
gfc_logical16_type_node, gfc_strlen_kind): Remove.
(gfc_character1_type_node): Turn in to a variable.
(gfc_strlen_type_node): Likewise.
From-SVN: r86806
2004-08-30 23:59:08 +02:00
|
|
|
|
|
|
|
/* The precision of the type as reported by GET_MODE_PRECISION. */
|
|
|
|
int mode_precision;
|
|
|
|
|
|
|
|
/* True if the C type of the given name maps to this precision.
|
|
|
|
Note that more than one bit can be set. */
|
|
|
|
unsigned int c_float : 1;
|
|
|
|
unsigned int c_double : 1;
|
|
|
|
unsigned int c_long_double : 1;
|
2004-05-13 08:41:07 +02:00
|
|
|
}
|
|
|
|
gfc_real_info;
|
|
|
|
|
|
|
|
extern gfc_real_info gfc_real_kinds[];
|
|
|
|
|
|
|
|
|
|
|
|
/* Equivalence structures. Equivalent lvalues are linked along the
|
|
|
|
*eq pointer, equivalence sets are strung along the *next node. */
|
|
|
|
typedef struct gfc_equiv
|
|
|
|
{
|
|
|
|
struct gfc_equiv *next, *eq;
|
|
|
|
gfc_expr *expr;
|
re PR fortran/18878 ([4.0 only] erronous error message on vaild USE statement)
2005-09-09 Paul Thomas <pault@gcc.gnu.org>
PR fortran/18878
* module.c (find_use_name_n): Based on original
find_use_name. Either counts number of use names for a
given real name or returns use name n.
(find_use_name, number_use_names): Interfaces to the
function find_use_name_n.
(read_module): Add the logic and calls to these functions,
so that mutiple reuses of the same real name are loaded.
2005-09-09 Paul Thomas <pault@gcc.gnu.org>
PR fortran/22304
PR fortran/23270
PR fortran/18870
PR fortran/16511
PR fortran/17917
* gfortran.h: Move definition of BLANK_COMMON_NAME from trans-
common.c so that it is accessible to module.c. Add common_head
field to gfc_symbol structure. Add field for the equivalence
name AND new attr field, in_equivalence.
* match.c (gfc_match_common, gfc_match_equivalence): In loops
that flag common block equivalences, emit an error if the
common blocks are different, using sym->common_head as the
common block identifier. Ensure that symbols that are equivalence
associated with a common block are marked as being in_common.
* module.c (write_blank_common): New.
(write_common): Use unmangled common block name.
(load_equiv): New function ported from g95.
(read_module): Call load_equiv.
(write_equiv): New function ported from g95. Correct
string referencing for gfc functions. Give module
equivalences a unique name.
(write_module): Call write_equiv and write_blank_common.
* primary.c (match_variable) Old gfc_match_variable, made
static and third argument provided to indicate if parent
namespace to be visited or not.
(gfc_match_variable) New. Interface to match_variable.
(gfc_match_equiv_variable) New. Interface to match_variable.
* trans-common.c (finish_equivalences): Provide the call
to create_common with a gfc_common_header so that
module equivalences are made external, rather than local.
(find_equivalences): Ensure that all members in common block
equivalences are marked as used. This prevents the subsequent
call to this function from making local unions.
* trans-decl.c (gfc_generate_function_code): Move the call to
gfc_generate_contained_functions to after the call to
gfc_trans_common so the use-associated, contained common
blocks produce the correct references.
(gfc_create_module_variable): Return for equivalenced symbols
with existing backend declaration.
2005-09-09 Paul Thomas <pault@gcc.gnu.org>
PR fortran/18878
* gfortran.dg/module_double_reuse.f90: New.
2005-09-09 Paul Thomas <pault@gcc.gnu.org>
PR fortran/23270
PR fortran/22304
PR fortran/18870
PR fortran/17917
PR fortran/16511
* gfortran.dg/common_equivalence_1.f: New.
* gfortran.dg/common_equivalence_2.f: New.
* gfortran.dg/common_equivalence_3.f: New.
* gfortran.dg/contained_equivalence_1.f90: New.
* gfortran.dg/module_blank_common.f90: New.
* gfortran.dg/module_commons_1.f90: New.
* gfortran.dg/module_equivalence_1.f90: New.
* gfortran.dg/nested_modules_1.f90: New.
* gfortran.dg/g77/19990905-0.f: Remove XFAIL, rearrange
equivalences and add comment to connect the test with
the PR.
From-SVN: r104060
2005-09-09 02:23:09 +02:00
|
|
|
const char *module;
|
2004-05-13 08:41:07 +02:00
|
|
|
int used;
|
|
|
|
}
|
|
|
|
gfc_equiv;
|
|
|
|
|
|
|
|
#define gfc_get_equiv() gfc_getmem(sizeof(gfc_equiv))
|
|
|
|
|
|
|
|
|
|
|
|
/* gfc_case stores the selector list of a case statement. The *low
|
|
|
|
and *high pointers can point to the same expression in the case of
|
|
|
|
a single value. If *high is NULL, the selection is from *low
|
|
|
|
upwards, if *low is NULL the selection is *high downwards.
|
|
|
|
|
2004-12-29 03:48:27 +01:00
|
|
|
This structure has separate fields to allow single and double linked
|
|
|
|
lists of CASEs at the same time. The singe linked list along the NEXT
|
2004-05-13 08:41:07 +02:00
|
|
|
field is a list of cases for a single CASE label. The double linked
|
|
|
|
list along the LEFT/RIGHT fields is used to detect overlap and to
|
|
|
|
build a table of the cases for SELECT constructs with a CHARACTER
|
|
|
|
case expression. */
|
|
|
|
|
|
|
|
typedef struct gfc_case
|
|
|
|
{
|
|
|
|
/* Where we saw this case. */
|
|
|
|
locus where;
|
|
|
|
int n;
|
|
|
|
|
|
|
|
/* Case range values. If (low == high), it's a single value. If one of
|
|
|
|
the labels is NULL, it's an unbounded case. If both are NULL, this
|
|
|
|
represents the default case. */
|
|
|
|
gfc_expr *low, *high;
|
|
|
|
|
|
|
|
/* Next case label in the list of cases for a single CASE label. */
|
|
|
|
struct gfc_case *next;
|
|
|
|
|
|
|
|
/* Used for detecting overlap, and for code generation. */
|
|
|
|
struct gfc_case *left, *right;
|
|
|
|
|
|
|
|
/* True if this case label can never be matched. */
|
|
|
|
int unreachable;
|
|
|
|
}
|
|
|
|
gfc_case;
|
|
|
|
|
|
|
|
#define gfc_get_case() gfc_getmem(sizeof(gfc_case))
|
|
|
|
|
|
|
|
|
|
|
|
typedef struct
|
|
|
|
{
|
|
|
|
gfc_expr *var, *start, *end, *step;
|
|
|
|
}
|
|
|
|
gfc_iterator;
|
|
|
|
|
|
|
|
#define gfc_get_iterator() gfc_getmem(sizeof(gfc_iterator))
|
|
|
|
|
|
|
|
|
arith.c, [...]: Fix comment formatting.
* arith.c, array.c, decl.c, expr.c, f95-lang.c, gfortran.h,
gfortranspec.c, interface.c, intrinsic.c, iresolve.c, match.c,
module.c, parse.c, parse.h, primary.c, resolve.c, scanner.c,
trans-array.c, trans-array.h, trans-expr.c, trans-intrinsic.c,
trans-io.c, trans-stmt.c, trans.h: Fix comment formatting.
From-SVN: r90266
2004-11-08 15:56:41 +01:00
|
|
|
/* Allocation structure for ALLOCATE, DEALLOCATE and NULLIFY statements. */
|
2004-05-13 08:41:07 +02:00
|
|
|
|
|
|
|
typedef struct gfc_alloc
|
|
|
|
{
|
|
|
|
gfc_expr *expr;
|
|
|
|
struct gfc_alloc *next;
|
|
|
|
}
|
|
|
|
gfc_alloc;
|
|
|
|
|
|
|
|
#define gfc_get_alloc() gfc_getmem(sizeof(gfc_alloc))
|
|
|
|
|
|
|
|
|
|
|
|
typedef struct
|
|
|
|
{
|
|
|
|
gfc_expr *unit, *file, *status, *access, *form, *recl,
|
gfortran.h: Add iomsg to gfc_open, gfc_close, gfc_filepos, gfc_inquire and gfc_dt.
2005-09-09 Thomas Koenig <Thomas.Koenig@online.de>
* gfortran.h: Add iomsg to gfc_open, gfc_close, gfc_filepos,
gfc_inquire and gfc_dt.
* dump-parse-tree.c (gfc_show_code_node): Add iomsg
for open, close, file positioning, inquire and namelist.
* io.c (io_tag): Add tag_iomsg.
(resolve_tag): Add standards warning for iomsg.
(match_open_element): Add iomsg.
(gfc_free_open): Add iomsg.
(gfc_resolve_open): Add iomsg.
(gfc_free_close): Add iomsg.
(match_close_element): Add iomsg.
(gfc_resolve_close): Add iomsg.
(gfc_free_filepos): Add iomsg.
(match_file_element): Add iomsg.
(gfc_resolve_filepos): Add iostat and iomsg.
(match-dt_element): Add iomsg.
(gfc_free_dt): Add iomsg.
(gfc_resolve_dt): Add iomsg.
(gfc_free_inquire): Add iomsg.
(match_inquire_element): Add iomsg.
(gfc_resolve_inquire): Add iomsg.
* trans_io.c: Add ioparm_iomsg and ioparm_iomsg_len.
(gfc_build_io_library_fndecls): Add iomsg as last field.
(gfc_trans_open): Add iomsg.
(gfc_trans_close): Add iomsg.
(build_fileos): Call set_string for iomsg.
(gfc_trans_inquire): Add iomsg.
(build_dt): Add iomsg.
2005-09-09 Thomas Koenig <Thomas.Koenig@online.de>
* io/io.h: Add iomsg as last field of st_parameter.
* runtime/error.c (generate_error): If iomsg is present, copy
the message there.
2005-09-09 Thomas Koenig <Thomas.Koenig@online.de>
* gfortran.dg/iomsg_1.f90: New test case.
From-SVN: r104102
2005-09-09 20:21:45 +02:00
|
|
|
*blank, *position, *action, *delim, *pad, *iostat, *iomsg;
|
2004-05-13 08:41:07 +02:00
|
|
|
gfc_st_label *err;
|
|
|
|
}
|
|
|
|
gfc_open;
|
|
|
|
|
|
|
|
|
|
|
|
typedef struct
|
|
|
|
{
|
gfortran.h: Add iomsg to gfc_open, gfc_close, gfc_filepos, gfc_inquire and gfc_dt.
2005-09-09 Thomas Koenig <Thomas.Koenig@online.de>
* gfortran.h: Add iomsg to gfc_open, gfc_close, gfc_filepos,
gfc_inquire and gfc_dt.
* dump-parse-tree.c (gfc_show_code_node): Add iomsg
for open, close, file positioning, inquire and namelist.
* io.c (io_tag): Add tag_iomsg.
(resolve_tag): Add standards warning for iomsg.
(match_open_element): Add iomsg.
(gfc_free_open): Add iomsg.
(gfc_resolve_open): Add iomsg.
(gfc_free_close): Add iomsg.
(match_close_element): Add iomsg.
(gfc_resolve_close): Add iomsg.
(gfc_free_filepos): Add iomsg.
(match_file_element): Add iomsg.
(gfc_resolve_filepos): Add iostat and iomsg.
(match-dt_element): Add iomsg.
(gfc_free_dt): Add iomsg.
(gfc_resolve_dt): Add iomsg.
(gfc_free_inquire): Add iomsg.
(match_inquire_element): Add iomsg.
(gfc_resolve_inquire): Add iomsg.
* trans_io.c: Add ioparm_iomsg and ioparm_iomsg_len.
(gfc_build_io_library_fndecls): Add iomsg as last field.
(gfc_trans_open): Add iomsg.
(gfc_trans_close): Add iomsg.
(build_fileos): Call set_string for iomsg.
(gfc_trans_inquire): Add iomsg.
(build_dt): Add iomsg.
2005-09-09 Thomas Koenig <Thomas.Koenig@online.de>
* io/io.h: Add iomsg as last field of st_parameter.
* runtime/error.c (generate_error): If iomsg is present, copy
the message there.
2005-09-09 Thomas Koenig <Thomas.Koenig@online.de>
* gfortran.dg/iomsg_1.f90: New test case.
From-SVN: r104102
2005-09-09 20:21:45 +02:00
|
|
|
gfc_expr *unit, *status, *iostat, *iomsg;
|
2004-05-13 08:41:07 +02:00
|
|
|
gfc_st_label *err;
|
|
|
|
}
|
|
|
|
gfc_close;
|
|
|
|
|
|
|
|
|
|
|
|
typedef struct
|
|
|
|
{
|
gfortran.h: Add iomsg to gfc_open, gfc_close, gfc_filepos, gfc_inquire and gfc_dt.
2005-09-09 Thomas Koenig <Thomas.Koenig@online.de>
* gfortran.h: Add iomsg to gfc_open, gfc_close, gfc_filepos,
gfc_inquire and gfc_dt.
* dump-parse-tree.c (gfc_show_code_node): Add iomsg
for open, close, file positioning, inquire and namelist.
* io.c (io_tag): Add tag_iomsg.
(resolve_tag): Add standards warning for iomsg.
(match_open_element): Add iomsg.
(gfc_free_open): Add iomsg.
(gfc_resolve_open): Add iomsg.
(gfc_free_close): Add iomsg.
(match_close_element): Add iomsg.
(gfc_resolve_close): Add iomsg.
(gfc_free_filepos): Add iomsg.
(match_file_element): Add iomsg.
(gfc_resolve_filepos): Add iostat and iomsg.
(match-dt_element): Add iomsg.
(gfc_free_dt): Add iomsg.
(gfc_resolve_dt): Add iomsg.
(gfc_free_inquire): Add iomsg.
(match_inquire_element): Add iomsg.
(gfc_resolve_inquire): Add iomsg.
* trans_io.c: Add ioparm_iomsg and ioparm_iomsg_len.
(gfc_build_io_library_fndecls): Add iomsg as last field.
(gfc_trans_open): Add iomsg.
(gfc_trans_close): Add iomsg.
(build_fileos): Call set_string for iomsg.
(gfc_trans_inquire): Add iomsg.
(build_dt): Add iomsg.
2005-09-09 Thomas Koenig <Thomas.Koenig@online.de>
* io/io.h: Add iomsg as last field of st_parameter.
* runtime/error.c (generate_error): If iomsg is present, copy
the message there.
2005-09-09 Thomas Koenig <Thomas.Koenig@online.de>
* gfortran.dg/iomsg_1.f90: New test case.
From-SVN: r104102
2005-09-09 20:21:45 +02:00
|
|
|
gfc_expr *unit, *iostat, *iomsg;
|
2004-05-13 08:41:07 +02:00
|
|
|
gfc_st_label *err;
|
|
|
|
}
|
|
|
|
gfc_filepos;
|
|
|
|
|
|
|
|
|
|
|
|
typedef struct
|
|
|
|
{
|
|
|
|
gfc_expr *unit, *file, *iostat, *exist, *opened, *number, *named,
|
|
|
|
*name, *access, *sequential, *direct, *form, *formatted,
|
|
|
|
*unformatted, *recl, *nextrec, *blank, *position, *action, *read,
|
gfortran.h: Add iomsg to gfc_open, gfc_close, gfc_filepos, gfc_inquire and gfc_dt.
2005-09-09 Thomas Koenig <Thomas.Koenig@online.de>
* gfortran.h: Add iomsg to gfc_open, gfc_close, gfc_filepos,
gfc_inquire and gfc_dt.
* dump-parse-tree.c (gfc_show_code_node): Add iomsg
for open, close, file positioning, inquire and namelist.
* io.c (io_tag): Add tag_iomsg.
(resolve_tag): Add standards warning for iomsg.
(match_open_element): Add iomsg.
(gfc_free_open): Add iomsg.
(gfc_resolve_open): Add iomsg.
(gfc_free_close): Add iomsg.
(match_close_element): Add iomsg.
(gfc_resolve_close): Add iomsg.
(gfc_free_filepos): Add iomsg.
(match_file_element): Add iomsg.
(gfc_resolve_filepos): Add iostat and iomsg.
(match-dt_element): Add iomsg.
(gfc_free_dt): Add iomsg.
(gfc_resolve_dt): Add iomsg.
(gfc_free_inquire): Add iomsg.
(match_inquire_element): Add iomsg.
(gfc_resolve_inquire): Add iomsg.
* trans_io.c: Add ioparm_iomsg and ioparm_iomsg_len.
(gfc_build_io_library_fndecls): Add iomsg as last field.
(gfc_trans_open): Add iomsg.
(gfc_trans_close): Add iomsg.
(build_fileos): Call set_string for iomsg.
(gfc_trans_inquire): Add iomsg.
(build_dt): Add iomsg.
2005-09-09 Thomas Koenig <Thomas.Koenig@online.de>
* io/io.h: Add iomsg as last field of st_parameter.
* runtime/error.c (generate_error): If iomsg is present, copy
the message there.
2005-09-09 Thomas Koenig <Thomas.Koenig@online.de>
* gfortran.dg/iomsg_1.f90: New test case.
From-SVN: r104102
2005-09-09 20:21:45 +02:00
|
|
|
*write, *readwrite, *delim, *pad, *iolength, *iomsg;
|
2004-05-13 08:41:07 +02:00
|
|
|
|
|
|
|
gfc_st_label *err;
|
|
|
|
|
|
|
|
}
|
|
|
|
gfc_inquire;
|
|
|
|
|
|
|
|
|
|
|
|
typedef struct
|
|
|
|
{
|
gfortran.h: Add iomsg to gfc_open, gfc_close, gfc_filepos, gfc_inquire and gfc_dt.
2005-09-09 Thomas Koenig <Thomas.Koenig@online.de>
* gfortran.h: Add iomsg to gfc_open, gfc_close, gfc_filepos,
gfc_inquire and gfc_dt.
* dump-parse-tree.c (gfc_show_code_node): Add iomsg
for open, close, file positioning, inquire and namelist.
* io.c (io_tag): Add tag_iomsg.
(resolve_tag): Add standards warning for iomsg.
(match_open_element): Add iomsg.
(gfc_free_open): Add iomsg.
(gfc_resolve_open): Add iomsg.
(gfc_free_close): Add iomsg.
(match_close_element): Add iomsg.
(gfc_resolve_close): Add iomsg.
(gfc_free_filepos): Add iomsg.
(match_file_element): Add iomsg.
(gfc_resolve_filepos): Add iostat and iomsg.
(match-dt_element): Add iomsg.
(gfc_free_dt): Add iomsg.
(gfc_resolve_dt): Add iomsg.
(gfc_free_inquire): Add iomsg.
(match_inquire_element): Add iomsg.
(gfc_resolve_inquire): Add iomsg.
* trans_io.c: Add ioparm_iomsg and ioparm_iomsg_len.
(gfc_build_io_library_fndecls): Add iomsg as last field.
(gfc_trans_open): Add iomsg.
(gfc_trans_close): Add iomsg.
(build_fileos): Call set_string for iomsg.
(gfc_trans_inquire): Add iomsg.
(build_dt): Add iomsg.
2005-09-09 Thomas Koenig <Thomas.Koenig@online.de>
* io/io.h: Add iomsg as last field of st_parameter.
* runtime/error.c (generate_error): If iomsg is present, copy
the message there.
2005-09-09 Thomas Koenig <Thomas.Koenig@online.de>
* gfortran.dg/iomsg_1.f90: New test case.
From-SVN: r104102
2005-09-09 20:21:45 +02:00
|
|
|
gfc_expr *io_unit, *format_expr, *rec, *advance, *iostat, *size, *iomsg;
|
2004-05-13 08:41:07 +02:00
|
|
|
|
|
|
|
gfc_symbol *namelist;
|
|
|
|
/* A format_label of `format_asterisk' indicates the "*" format */
|
|
|
|
gfc_st_label *format_label;
|
|
|
|
gfc_st_label *err, *end, *eor;
|
|
|
|
|
|
|
|
locus eor_where, end_where;
|
|
|
|
}
|
|
|
|
gfc_dt;
|
|
|
|
|
|
|
|
|
|
|
|
typedef struct gfc_forall_iterator
|
|
|
|
{
|
|
|
|
gfc_expr *var, *start, *end, *stride;
|
|
|
|
struct gfc_forall_iterator *next;
|
|
|
|
}
|
|
|
|
gfc_forall_iterator;
|
|
|
|
|
|
|
|
|
|
|
|
/* Executable statements that fill gfc_code structures. */
|
|
|
|
typedef enum
|
|
|
|
{
|
|
|
|
EXEC_NOP = 1, EXEC_ASSIGN, EXEC_LABEL_ASSIGN, EXEC_POINTER_ASSIGN,
|
2004-08-17 17:34:12 +02:00
|
|
|
EXEC_GOTO, EXEC_CALL, EXEC_RETURN, EXEC_ENTRY,
|
|
|
|
EXEC_PAUSE, EXEC_STOP, EXEC_CONTINUE,
|
2004-05-13 08:41:07 +02:00
|
|
|
EXEC_IF, EXEC_ARITHMETIC_IF, EXEC_DO, EXEC_DO_WHILE, EXEC_SELECT,
|
|
|
|
EXEC_FORALL, EXEC_WHERE, EXEC_CYCLE, EXEC_EXIT,
|
|
|
|
EXEC_ALLOCATE, EXEC_DEALLOCATE,
|
|
|
|
EXEC_OPEN, EXEC_CLOSE,
|
|
|
|
EXEC_READ, EXEC_WRITE, EXEC_IOLENGTH, EXEC_TRANSFER, EXEC_DT_END,
|
2005-08-08 00:56:19 +02:00
|
|
|
EXEC_BACKSPACE, EXEC_ENDFILE, EXEC_INQUIRE, EXEC_REWIND, EXEC_FLUSH
|
2004-05-13 08:41:07 +02:00
|
|
|
}
|
|
|
|
gfc_exec_op;
|
|
|
|
|
|
|
|
typedef struct gfc_code
|
|
|
|
{
|
|
|
|
gfc_exec_op op;
|
|
|
|
|
|
|
|
struct gfc_code *block, *next;
|
|
|
|
locus loc;
|
|
|
|
|
|
|
|
gfc_st_label *here, *label, *label2, *label3;
|
|
|
|
gfc_symtree *symtree;
|
|
|
|
gfc_expr *expr, *expr2;
|
|
|
|
/* A name isn't sufficient to identify a subroutine, we need the actual
|
|
|
|
symbol for the interface definition.
|
|
|
|
const char *sub_name; */
|
|
|
|
gfc_symbol *resolved_sym;
|
|
|
|
|
|
|
|
union
|
|
|
|
{
|
|
|
|
gfc_actual_arglist *actual;
|
|
|
|
gfc_case *case_list;
|
|
|
|
gfc_iterator *iterator;
|
|
|
|
gfc_alloc *alloc_list;
|
|
|
|
gfc_open *open;
|
|
|
|
gfc_close *close;
|
|
|
|
gfc_filepos *filepos;
|
|
|
|
gfc_inquire *inquire;
|
|
|
|
gfc_dt *dt;
|
|
|
|
gfc_forall_iterator *forall_iterator;
|
|
|
|
struct gfc_code *whichloop;
|
|
|
|
int stop_code;
|
2004-08-17 17:34:12 +02:00
|
|
|
gfc_entry_list *entry;
|
2004-05-13 08:41:07 +02:00
|
|
|
}
|
|
|
|
ext; /* Points to additional structures required by statement */
|
|
|
|
|
|
|
|
/* Backend_decl is used for cycle and break labels in do loops, and
|
|
|
|
* probably for other constructs as well, once we translate them. */
|
|
|
|
tree backend_decl;
|
|
|
|
}
|
|
|
|
gfc_code;
|
|
|
|
|
|
|
|
|
|
|
|
/* Storage for DATA statements. */
|
|
|
|
typedef struct gfc_data_variable
|
|
|
|
{
|
|
|
|
gfc_expr *expr;
|
|
|
|
gfc_iterator iter;
|
|
|
|
struct gfc_data_variable *list, *next;
|
|
|
|
}
|
|
|
|
gfc_data_variable;
|
|
|
|
|
|
|
|
|
|
|
|
typedef struct gfc_data_value
|
|
|
|
{
|
2004-08-23 23:53:14 +02:00
|
|
|
unsigned int repeat;
|
2004-05-13 08:41:07 +02:00
|
|
|
gfc_expr *expr;
|
|
|
|
struct gfc_data_value *next;
|
|
|
|
}
|
|
|
|
gfc_data_value;
|
|
|
|
|
|
|
|
|
|
|
|
typedef struct gfc_data
|
|
|
|
{
|
|
|
|
gfc_data_variable *var;
|
|
|
|
gfc_data_value *value;
|
|
|
|
locus where;
|
|
|
|
|
|
|
|
struct gfc_data *next;
|
|
|
|
}
|
|
|
|
gfc_data;
|
|
|
|
|
|
|
|
#define gfc_get_data_variable() gfc_getmem(sizeof(gfc_data_variable))
|
|
|
|
#define gfc_get_data_value() gfc_getmem(sizeof(gfc_data_value))
|
|
|
|
#define gfc_get_data() gfc_getmem(sizeof(gfc_data))
|
|
|
|
|
|
|
|
|
|
|
|
/* Structure for holding compile options */
|
|
|
|
typedef struct
|
|
|
|
{
|
|
|
|
char *module_dir;
|
|
|
|
gfc_source_form source_form;
|
|
|
|
int fixed_line_length;
|
|
|
|
int max_identifier_length;
|
|
|
|
int verbose;
|
|
|
|
|
|
|
|
int warn_aliasing;
|
|
|
|
int warn_conversion;
|
|
|
|
int warn_implicit_interface;
|
|
|
|
int warn_line_truncation;
|
invoke.texi: Document -Wunderflow and spell check.
* invoke.texi: Document -Wunderflow and spell check.
* lang.opt: Add Wunderflow.
* gfortran.h (gfc_option_t): Add warn_underflow option.
* options.c (gfc_init_options, set_Wall): Use it.
* primary.c (match_real_constant): Explicitly handle UNDERFLOW.
* arith.c (gfc_arith_uminus, gfc_arith_plus, gfc_arith_minus,
gfc_arith_times, gfc_arith_divide, gfc_arith_power, gfc_real2real,
gfc_real2complex, gfc_complex2real, gfc_complex2complex): Ditto.
* arith.c (common_logarithm): Fix typo in comment.
From-SVN: r82130
2004-05-22 13:03:17 +02:00
|
|
|
int warn_underflow;
|
2004-05-13 08:41:07 +02:00
|
|
|
int warn_surprising;
|
|
|
|
int warn_unused_labels;
|
|
|
|
|
gfortran.h (option_t): Change d8, i8, r8 to flag_default_double, flag_default_integer, flag_default_real
* gfortran.h (option_t): Change d8, i8, r8 to flag_default_double,
flag_default_integer, flag_default_real
* invoke.texi: Update documentation
* lang.opt: Remove d8, i8, r8 definitions; Add fdefault-double-8
fdefault-integer-8, and fdefault-real-8 definitions.
* options.c (gfc_init_options): Set option defaults
(gfc_handle_option): Handle command line options.
* trans-types.c (gfc_init_kinds): Use options.
From-SVN: r97221
2005-03-30 02:30:51 +02:00
|
|
|
int flag_default_double;
|
|
|
|
int flag_default_integer;
|
|
|
|
int flag_default_real;
|
2004-05-13 08:41:07 +02:00
|
|
|
int flag_dollar_ok;
|
|
|
|
int flag_underscoring;
|
|
|
|
int flag_second_underscore;
|
|
|
|
int flag_implicit_none;
|
|
|
|
int flag_max_stack_var_size;
|
|
|
|
int flag_module_access_private;
|
|
|
|
int flag_no_backend;
|
|
|
|
int flag_pack_derived;
|
|
|
|
int flag_repack_arrays;
|
2005-05-11 00:06:55 +02:00
|
|
|
int flag_f2c;
|
2005-08-31 14:31:30 +02:00
|
|
|
int flag_automatic;
|
2005-06-20 22:14:20 +02:00
|
|
|
int flag_backslash;
|
2005-10-24 21:28:18 +02:00
|
|
|
int flag_cray_pointer;
|
2005-08-21 17:28:27 +02:00
|
|
|
int flag_d_lines;
|
2004-05-13 08:41:07 +02:00
|
|
|
|
|
|
|
int q_kind;
|
gfortran.h (option_t): Change d8, i8, r8 to flag_default_double, flag_default_integer, flag_default_real
* gfortran.h (option_t): Change d8, i8, r8 to flag_default_double,
flag_default_integer, flag_default_real
* invoke.texi: Update documentation
* lang.opt: Remove d8, i8, r8 definitions; Add fdefault-double-8
fdefault-integer-8, and fdefault-real-8 definitions.
* options.c (gfc_init_options): Set option defaults
(gfc_handle_option): Handle command line options.
* trans-types.c (gfc_init_kinds): Use options.
From-SVN: r97221
2005-03-30 02:30:51 +02:00
|
|
|
|
2005-10-12 22:21:31 +02:00
|
|
|
int fpe;
|
|
|
|
|
2004-05-13 08:41:07 +02:00
|
|
|
int warn_std;
|
|
|
|
int allow_std;
|
re PR fortran/17590 (Standard conformance should take intrinsics into account.)
2004-10-31 Janne Blomqvist <jblomqvi@cc.hut.fi>
PR fortran/17590
* gfortran.h: Change GFC_STD_* flags to more appropriate
ones. (struct gfc_intrinsic_isym): Add field for standard. (struct
gfc_option_t): Add field for warning about use of nonstandard
intrinsics.
* intrinsic.c (add_sym): Add parameter for standard version, check
this against current standard.
(add_sym_0): Pass standard parameter to add_sym.
(add_sym_1, add_sym_0s, add_sym_1s, add_sym_1m, add_sym_2): Ditto.
(add_sym_2s, add_sym_3, add_sym_3ml, add_sym_3red, add_sym_3s): Ditto.
(add_sym_4, add_sym_4s, add_sym_5, add_sym_5s): Ditto.
(make_generic): Add parameter for standard, check this
against currently selected standard.
(add_functions, add_subroutines): Add parameter to tell which
standard an intrinsic belongs to.
(check_intrinsic_standard): New function.
(gfc_intrinsic_func_interface): Add call to check_intrinsic_standard.
(gfc_intrinsic_sub_interface): Ditto.
* lang.opt: Add Wnonstd-intrinsics option.
* options.c (gfc_init_options): Change to use new GFC_STD_* flags,
init new warning.
(set_Wall): Add warning about nonstd intrinsics.
(gfc_handle_option): Change to use new GFC_STD_* flags,
handle new warning.
* invoke.texi: Update manual to include -Wnonstd-intrinsics.
From-SVN: r89907
2004-10-31 02:24:29 +01:00
|
|
|
int warn_nonstd_intrinsics;
|
arith.c (gfc_enum_initializer): New function.
fortran/
2005-10-30 Gaurav Gautam <gauravga@noida.hcltech.com>
Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de>
* arith.c (gfc_enum_initializer): New function.
(gfc_check_integer_range): Made extern.
* decl.c (enumerator_history): New typedef.
(last_initializer, enum_history, max_enum): New variables.
(create_enum_history, gfc_free_enum_history): New functions.
(add_init_expr_to_sym): Call create_enum_history if parsing ENUM.
(variable_decl): Modified to parse enumerator definition.
(match_attr_spec): Add PARAMETER attribute to ENUMERATORs.
(gfc_match_data_decl): Issues error, if match_type_spec do not
return desired return values.
(set_enum_kind, gfc_match_enum, gfc_match_enumerator_def): New
functions.
(gfc_match_end): Deal with END ENUM.
* gfortran.h (gfc_statement): ST_ENUM, ST_ENUMERATOR, ST_END_ENUM
added.
(symbol_attribute): Bit field for enumerator added.
(gfc_options): Add fshort_enums.
(gfc_enum_initializer, gfc_check_integer_range): Add prototypes.
* options.c: Include target.h
(gfc_init_options): Initialize fshort_enums.
(gfc_handle_option): Deal with fshort_enums.
* parse.c (decode_statement): Match ENUM and ENUMERATOR statement.
(gfc_ascii_statement): Deal with the enumerator statements.
(parse_enum): New function to parse enum construct.
(parse_spec): Added case ST_ENUM.
* parse.h (gfc_compile_state): COMP_ENUM added.
(gfc_match_enum, gfc_match_enumerator_def, gfc_free_enum_history):
Prototype added.
* symbol.c (gfc_copy_attr): Copy enumeration attribute.
* lang.opt (fshort-enums): Option added.
testsuite/
2005-10-30 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de>
* gfortran.dg/enum_10.f90, gfortran.dg/enum_10.c: New test.
2005-10-30 Gaurav Gautam <gauravga@noida.hcltech.com>
* gfortran.dg/enum_1.f90, gfortran.dg/enum_2.f90,
gfortran.dg/enum_3.f90, gfortran.dg/enum_4.f90,
gfortran.dg/enum_5.f90, gfortran.dg/enum_6.f90,
gfortran.dg/enum_7.f90, gfortran.dg/enum_8.f90,
gfortran.dg/enum_9.f90,
gfortran.fortran-torture/compile/enum_1.f90,
gfortran.fortran-torture/execute/enum_1.f90,
gfortran.fortran-torture/execute/enum_2.f90,
gfortran.fortran-torture/execute/enum_3.f90,
gfortran.fortran-torture/execute/enum_4.f90: New tests.
From-SVN: r106246
2005-10-30 19:09:55 +01:00
|
|
|
int fshort_enums;
|
2004-05-13 08:41:07 +02:00
|
|
|
}
|
|
|
|
gfc_option_t;
|
|
|
|
|
|
|
|
extern gfc_option_t gfc_option;
|
|
|
|
|
|
|
|
|
|
|
|
/* Constructor nodes for array and structure constructors. */
|
|
|
|
typedef struct gfc_constructor
|
|
|
|
{
|
|
|
|
gfc_expr *expr;
|
|
|
|
gfc_iterator *iterator;
|
|
|
|
locus where;
|
|
|
|
struct gfc_constructor *next;
|
|
|
|
struct
|
|
|
|
{
|
|
|
|
mpz_t offset; /* Record the offset of array element which appears in
|
|
|
|
data statement like "data a(5)/4/". */
|
|
|
|
gfc_component *component; /* Record the component being initialized. */
|
|
|
|
}
|
|
|
|
n;
|
|
|
|
mpz_t repeat; /* Record the repeat number of initial values in data
|
|
|
|
statement like "data a/5*10/". */
|
|
|
|
}
|
|
|
|
gfc_constructor;
|
|
|
|
|
|
|
|
|
|
|
|
typedef struct iterator_stack
|
|
|
|
{
|
|
|
|
gfc_symtree *variable;
|
|
|
|
mpz_t value;
|
|
|
|
struct iterator_stack *prev;
|
|
|
|
}
|
|
|
|
iterator_stack;
|
|
|
|
extern iterator_stack *iter_stack;
|
|
|
|
|
|
|
|
/************************ Function prototypes *************************/
|
|
|
|
|
|
|
|
/* data.c */
|
|
|
|
void gfc_formalize_init_value (gfc_symbol *);
|
|
|
|
void gfc_get_section_index (gfc_array_ref *, mpz_t *, mpz_t *);
|
|
|
|
void gfc_assign_data_value (gfc_expr *, gfc_expr *, mpz_t);
|
2004-08-23 23:53:14 +02:00
|
|
|
void gfc_assign_data_value_range (gfc_expr *, gfc_expr *, mpz_t, mpz_t);
|
2004-05-13 08:41:07 +02:00
|
|
|
void gfc_advance_section (mpz_t *, gfc_array_ref *, mpz_t *);
|
|
|
|
|
|
|
|
/* scanner.c */
|
|
|
|
void gfc_scanner_done_1 (void);
|
|
|
|
void gfc_scanner_init_1 (void);
|
|
|
|
|
|
|
|
void gfc_add_include_path (const char *);
|
|
|
|
void gfc_release_include_path (void);
|
|
|
|
FILE *gfc_open_included_file (const char *);
|
|
|
|
|
|
|
|
int gfc_at_end (void);
|
|
|
|
int gfc_at_eof (void);
|
|
|
|
int gfc_at_bol (void);
|
|
|
|
int gfc_at_eol (void);
|
|
|
|
void gfc_advance_line (void);
|
|
|
|
int gfc_check_include (void);
|
|
|
|
|
|
|
|
void gfc_skip_comments (void);
|
|
|
|
int gfc_next_char_literal (int);
|
|
|
|
int gfc_next_char (void);
|
|
|
|
int gfc_peek_char (void);
|
|
|
|
void gfc_error_recovery (void);
|
|
|
|
void gfc_gobble_whitespace (void);
|
2005-08-21 17:28:27 +02:00
|
|
|
try gfc_new_file (void);
|
2004-05-13 08:41:07 +02:00
|
|
|
|
re PR fortran/13702 (When preprocessing Fortran files (.F, .F90 and .F95) cpp should emit line numbers.)
PR fortran/13702
(Port from g95)
* gfortran.h (gfc_linebuf): New typedef.
(linebuf): Remove.
(gfc_file): Revamped, use new gfc_linebuf.
(locus): Revamped, use new types.
(gfc_current_file): Remove.
(gfc_current_form, gfc_source_file): New global variables.
* match.c (gfc_match_space, gfc_match_strings): Use
gfc_current_form to find source form.
* module.c (gfc_dump_module): Use gfc_source_file when printing
module header.
* error.c (show_locus, show_loci) Use new data structures to print
locus.
* scanner.c (first_file, first_duplicated_file, gfc_current_file):
Remove.
(file_head, current_file, gfc_current_form, line_head, line_tail,
gfc_current_locus1, gfc_source_file): New global variables.
(gfc_scanner_init1): Set new global variables.
(gfc_scanner_done1): Free new data structures.
(gfc_current_locus): Return pointer to gfc_current_locus1.
(gfc_set_locus): Set gfc_current_locus1.
(gfc_at_eof): Set new variables.
(gfc_at_bol, gfc_at_eol, gfc_advance_line, gfc_next_char): Adapt
to new locus structure.
(gfc_check_include): Remove.
(skip_free_comments, skip_fixed_comments): Use gfc_current_locus1.
(gfc_skip_comments): Use gfc_current_form, find locus with
gfc_current_locus1.
(gfc_next_char): Use gfc_current_form.
(gfc_peek_char, gfc_gobble_whitespace): Use gfc_current_locus1.
(load_line): Use gfc_current_form. Recognize ^Z as EOF. Fix
comment formatting.
(get_file): New function.
(preprocessor_line, include_line): New functions.
(load_file): Move down, rewrite to match new data structures.
(gfc_new_file): Rewrite to match new data structures.
* parse.c (next_statement): Remove code which is now useless. Use
gfc_source_form and gfc_source_file where appropriate.
* trans-decl.c (gfc_get_label_decl): adapt to new data structures
when determining locus of frontend code.
* trans-io.c (set_error_locus): Same.
* trans.c (gfc_get_backend_locus, gfc_set_backend_locus): Likewise.
* lang-specs.h (@f77-cpp-input, @f95-cpp-input): Remove '-P' from
preprocessor flags.
(all): Add missing initializers.
From-SVN: r81888
2004-05-15 19:31:32 +02:00
|
|
|
extern gfc_source_form gfc_current_form;
|
2005-08-21 17:28:27 +02:00
|
|
|
extern const char *gfc_source_file;
|
gfortran.h (gfc_current_locus, [...]): Remove.
* gfortran.h (gfc_current_locus, gfc_set_locus): Remove.
(gfc_current_locus): Declare new global variable.
* scanner.c (gfc_current_locus, gfc_set_locus): Remove.
(gfc_current_locus1): Rename ...
(gfc_current_locus): ... to this.
(gfc_at_eof, gfc_at_bol, gfc_at_eol, gfc_advance_line, next_char,
skip_fixed_comments, skip_free_comments, gfc_next_char_literal,
gfc_peek_char, gfc_gobble_whitespace, gfc_new_file): Use
gfc_current_locus instead of gfc_current_locus1, gfc_set_locus()
and gfc_current_locus(), respectively.
* array.c (match_subscript, gfc_match_array_ref, match_array_list,
match_array_cons_element, gfc_match_array_constructor):
Read/modify gfc_current_locus instead of calling gfc_set_locus()
and gfc_current_locus().
* decl.c (gfc_match_null, variable_decl, gfc_match_kind_spec,
match_attr_spec, gfc_match_function_decl, gfc_match_end,
attr_decl1, gfc_match_save): Likewise.
* error.c (error_print, gfc_internal_error): Likewise.
* expr.c (gfc_int_expr, gfc_default_logical_kind): Likewise.
* interface.c (gfc_add_interface): Likewise.
* io.c (gfc_match_format, match_dt_format, match_dt_element,
match_io_iterator, match_io): Likewise.
* match.c (gfc_match_space, gfc_match_eos,
gfc_match_small_literal_int, gfc_match_st_label,
gfc_match_strings, gfc_match_name, gfc_match_iterator,
gfc_match_char, gfc_match, gfc_match_assignment,
gfc_match_pointer_assignment, gfc_match_if, gfc_match_do,
gfc_match_nullify, gfc_match_call, match_implicit_range,
gfc_match_implicit, gfc_match_data, match_case_selector,
gfc_match_case, match_forall_iterator): Likewise.
* matchexp.c (gfc_match_defined_op_name, next_operator,
match_level_1, match_mult_operand, match_ext_mult_operand,
match_add_operand, match_ext_add_operand, match_level_2,
match_level_3, match_level_4, match_and_operand, match_or_operand,
match_equiv_operand, match_level_5, gfc_match_expr): Likewise.
* module.c (gfc_match_use, mio_array_ref, mio_expr): Likewise.
* parse.c (match_word, decode_statement, next_free, next_fixed,
add_statement, verify_st_order, parse_if_block, gfc_parse_file):
Likewise.
* primary.c (match_digits, match_integer_constant,
match_boz_constant, match_real_constant, match_substring,
next_string_char, match_charkind_name, match_string_constant,
match_logical_constant, match_const_complex_part,
match_complex_constant, match_actual_arg, match_keyword_arg,
gfc_match_actual_arglist, gfc_match_structure_constructor,
gfc_match_rvalue, gfc_match_variable): Likewise.
* st.c (gfc_get_code): Likewise.
* symbol.c (check_conflict, check_used, check_done,
duplicate_attr, add_flavor, gfc_add_procedure, gfc_add_intent,
gfc_add_access, gfc_add_explicit_interface, gfc_add_type,
gfc_add_component, gfc_reference_st_label, gfc_new_symbol): Likewise.
From-SVN: r82320
2004-05-27 14:35:12 +02:00
|
|
|
extern locus gfc_current_locus;
|
2004-05-13 08:41:07 +02:00
|
|
|
|
|
|
|
/* misc.c */
|
|
|
|
void *gfc_getmem (size_t) ATTRIBUTE_MALLOC;
|
|
|
|
void gfc_free (void *);
|
|
|
|
int gfc_terminal_width(void);
|
|
|
|
void gfc_clear_ts (gfc_typespec *);
|
|
|
|
FILE *gfc_open_file (const char *);
|
|
|
|
const char *gfc_basic_typename (bt);
|
|
|
|
const char *gfc_typename (gfc_typespec *);
|
|
|
|
|
|
|
|
#define gfc_op2string(OP) (OP == INTRINSIC_ASSIGN ? \
|
|
|
|
"=" : gfc_code2string (intrinsic_operators, OP))
|
|
|
|
|
|
|
|
const char *gfc_code2string (const mstring *, int);
|
|
|
|
int gfc_string2code (const mstring *, const char *);
|
|
|
|
const char *gfc_intent_string (sym_intent);
|
|
|
|
|
|
|
|
void gfc_init_1 (void);
|
|
|
|
void gfc_init_2 (void);
|
|
|
|
void gfc_done_1 (void);
|
|
|
|
void gfc_done_2 (void);
|
|
|
|
|
|
|
|
/* options.c */
|
|
|
|
unsigned int gfc_init_options (unsigned int, const char **);
|
|
|
|
int gfc_handle_option (size_t, const char *, int);
|
|
|
|
bool gfc_post_options (const char **);
|
|
|
|
|
|
|
|
/* iresolve.c */
|
2004-12-15 04:56:06 +01:00
|
|
|
const char * gfc_get_string (const char *, ...) ATTRIBUTE_PRINTF_1;
|
2004-05-13 08:41:07 +02:00
|
|
|
|
|
|
|
/* error.c */
|
|
|
|
|
|
|
|
typedef struct gfc_error_buf
|
|
|
|
{
|
|
|
|
int flag;
|
gfortran.h (MAX_ERROR_MESSAGE): Remove.
* gfortran.h (MAX_ERROR_MESSAGE): Remove.
(gfc_error_buf): Add allocated and index fields. Change message
field from array to a pointer.
* error.c (use_warning_buffer, error_ptr, warning_ptr): Remove.
(cur_error_buffer): New variable.
(error_char): Use cur_error_buffer->{message,index} instead of
{warning,error}_{buffer.message,ptr}. Reallocate message buffer
if too small.
(gfc_warning, gfc_notify_std, gfc_error, gfc_error_now): Setup
cur_error_buffer and its index rather than {warning,error}_ptr
and use_warning_buffer.
(gfc_warning_check, gfc_error_check): Don't print anything if
message is NULL.
(gfc_push_error): Allocate saved message with xstrdup.
(gfc_pop_error): Free saved message with gfc_free.
(gfc_free_error): New function.
* primary.c (match_complex_constant): Call gfc_free_error if
gfc_pop_error will not be called.
* match.c (gfc_match_st_function): Likewise.
* gfortran.dg/g77/cpp6.f: New test.
From-SVN: r102015
2005-07-14 12:12:17 +02:00
|
|
|
size_t allocated, index;
|
|
|
|
char *message;
|
2004-05-13 08:41:07 +02:00
|
|
|
} gfc_error_buf;
|
|
|
|
|
|
|
|
void gfc_error_init_1 (void);
|
|
|
|
void gfc_buffer_error (int);
|
|
|
|
|
c-format.c (gcc_gfc_format_type, [...]): New.
* c-format.c (gcc_gfc_format_type, gcc_gfc_flag_pairs,
gcc_gfc_char_table, init_dynamic_gfc_info): New.
(format_types_orig, handle_format_attribute): Add support for
format "gcc_gfc".
fortran:
* error.c (error_printf, error_print): Use ATTRIBUTE_GCC_GFC.
* gfortran.h (ATTRIBUTE_GCC_GFC): New.
(gfc_warning, gfc_warning_now, gfc_error, gfc_error_now,
gfc_fatal_error, gfc_internal_error, gfc_notify_std): Use
ATTRIBUTE_GCC_GFC.
testsuite:
* gcc.dg/format/gcc_gfc-1.c: New.
From-SVN: r101552
2005-07-03 16:28:03 +02:00
|
|
|
void gfc_warning (const char *, ...) ATTRIBUTE_GCC_GFC(1,2);
|
|
|
|
void gfc_warning_now (const char *, ...) ATTRIBUTE_GCC_GFC(1,2);
|
2004-05-13 08:41:07 +02:00
|
|
|
void gfc_clear_warning (void);
|
|
|
|
void gfc_warning_check (void);
|
|
|
|
|
c-format.c (gcc_gfc_format_type, [...]): New.
* c-format.c (gcc_gfc_format_type, gcc_gfc_flag_pairs,
gcc_gfc_char_table, init_dynamic_gfc_info): New.
(format_types_orig, handle_format_attribute): Add support for
format "gcc_gfc".
fortran:
* error.c (error_printf, error_print): Use ATTRIBUTE_GCC_GFC.
* gfortran.h (ATTRIBUTE_GCC_GFC): New.
(gfc_warning, gfc_warning_now, gfc_error, gfc_error_now,
gfc_fatal_error, gfc_internal_error, gfc_notify_std): Use
ATTRIBUTE_GCC_GFC.
testsuite:
* gcc.dg/format/gcc_gfc-1.c: New.
From-SVN: r101552
2005-07-03 16:28:03 +02:00
|
|
|
void gfc_error (const char *, ...) ATTRIBUTE_GCC_GFC(1,2);
|
|
|
|
void gfc_error_now (const char *, ...) ATTRIBUTE_GCC_GFC(1,2);
|
|
|
|
void gfc_fatal_error (const char *, ...) ATTRIBUTE_NORETURN ATTRIBUTE_GCC_GFC(1,2);
|
|
|
|
void gfc_internal_error (const char *, ...) ATTRIBUTE_NORETURN ATTRIBUTE_GCC_GFC(1,2);
|
2004-05-13 08:41:07 +02:00
|
|
|
void gfc_clear_error (void);
|
|
|
|
int gfc_error_check (void);
|
|
|
|
|
c-format.c (gcc_gfc_format_type, [...]): New.
* c-format.c (gcc_gfc_format_type, gcc_gfc_flag_pairs,
gcc_gfc_char_table, init_dynamic_gfc_info): New.
(format_types_orig, handle_format_attribute): Add support for
format "gcc_gfc".
fortran:
* error.c (error_printf, error_print): Use ATTRIBUTE_GCC_GFC.
* gfortran.h (ATTRIBUTE_GCC_GFC): New.
(gfc_warning, gfc_warning_now, gfc_error, gfc_error_now,
gfc_fatal_error, gfc_internal_error, gfc_notify_std): Use
ATTRIBUTE_GCC_GFC.
testsuite:
* gcc.dg/format/gcc_gfc-1.c: New.
From-SVN: r101552
2005-07-03 16:28:03 +02:00
|
|
|
try gfc_notify_std (int, const char *, ...) ATTRIBUTE_GCC_GFC(2,3);
|
2004-05-13 08:41:07 +02:00
|
|
|
|
|
|
|
/* A general purpose syntax error. */
|
|
|
|
#define gfc_syntax_error(ST) \
|
|
|
|
gfc_error ("Syntax error in %s statement at %C", gfc_ascii_statement (ST));
|
|
|
|
|
|
|
|
void gfc_push_error (gfc_error_buf *);
|
|
|
|
void gfc_pop_error (gfc_error_buf *);
|
gfortran.h (MAX_ERROR_MESSAGE): Remove.
* gfortran.h (MAX_ERROR_MESSAGE): Remove.
(gfc_error_buf): Add allocated and index fields. Change message
field from array to a pointer.
* error.c (use_warning_buffer, error_ptr, warning_ptr): Remove.
(cur_error_buffer): New variable.
(error_char): Use cur_error_buffer->{message,index} instead of
{warning,error}_{buffer.message,ptr}. Reallocate message buffer
if too small.
(gfc_warning, gfc_notify_std, gfc_error, gfc_error_now): Setup
cur_error_buffer and its index rather than {warning,error}_ptr
and use_warning_buffer.
(gfc_warning_check, gfc_error_check): Don't print anything if
message is NULL.
(gfc_push_error): Allocate saved message with xstrdup.
(gfc_pop_error): Free saved message with gfc_free.
(gfc_free_error): New function.
* primary.c (match_complex_constant): Call gfc_free_error if
gfc_pop_error will not be called.
* match.c (gfc_match_st_function): Likewise.
* gfortran.dg/g77/cpp6.f: New test.
From-SVN: r102015
2005-07-14 12:12:17 +02:00
|
|
|
void gfc_free_error (gfc_error_buf *);
|
2004-05-13 08:41:07 +02:00
|
|
|
|
|
|
|
void gfc_status (const char *, ...) ATTRIBUTE_PRINTF_1;
|
|
|
|
void gfc_status_char (char);
|
|
|
|
|
|
|
|
void gfc_get_errors (int *, int *);
|
|
|
|
|
|
|
|
/* arith.c */
|
|
|
|
void gfc_arith_init_1 (void);
|
|
|
|
void gfc_arith_done_1 (void);
|
arith.c (gfc_enum_initializer): New function.
fortran/
2005-10-30 Gaurav Gautam <gauravga@noida.hcltech.com>
Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de>
* arith.c (gfc_enum_initializer): New function.
(gfc_check_integer_range): Made extern.
* decl.c (enumerator_history): New typedef.
(last_initializer, enum_history, max_enum): New variables.
(create_enum_history, gfc_free_enum_history): New functions.
(add_init_expr_to_sym): Call create_enum_history if parsing ENUM.
(variable_decl): Modified to parse enumerator definition.
(match_attr_spec): Add PARAMETER attribute to ENUMERATORs.
(gfc_match_data_decl): Issues error, if match_type_spec do not
return desired return values.
(set_enum_kind, gfc_match_enum, gfc_match_enumerator_def): New
functions.
(gfc_match_end): Deal with END ENUM.
* gfortran.h (gfc_statement): ST_ENUM, ST_ENUMERATOR, ST_END_ENUM
added.
(symbol_attribute): Bit field for enumerator added.
(gfc_options): Add fshort_enums.
(gfc_enum_initializer, gfc_check_integer_range): Add prototypes.
* options.c: Include target.h
(gfc_init_options): Initialize fshort_enums.
(gfc_handle_option): Deal with fshort_enums.
* parse.c (decode_statement): Match ENUM and ENUMERATOR statement.
(gfc_ascii_statement): Deal with the enumerator statements.
(parse_enum): New function to parse enum construct.
(parse_spec): Added case ST_ENUM.
* parse.h (gfc_compile_state): COMP_ENUM added.
(gfc_match_enum, gfc_match_enumerator_def, gfc_free_enum_history):
Prototype added.
* symbol.c (gfc_copy_attr): Copy enumeration attribute.
* lang.opt (fshort-enums): Option added.
testsuite/
2005-10-30 Tobias Schl"uter <tobias.schlueter@physik.uni-muenchen.de>
* gfortran.dg/enum_10.f90, gfortran.dg/enum_10.c: New test.
2005-10-30 Gaurav Gautam <gauravga@noida.hcltech.com>
* gfortran.dg/enum_1.f90, gfortran.dg/enum_2.f90,
gfortran.dg/enum_3.f90, gfortran.dg/enum_4.f90,
gfortran.dg/enum_5.f90, gfortran.dg/enum_6.f90,
gfortran.dg/enum_7.f90, gfortran.dg/enum_8.f90,
gfortran.dg/enum_9.f90,
gfortran.fortran-torture/compile/enum_1.f90,
gfortran.fortran-torture/execute/enum_1.f90,
gfortran.fortran-torture/execute/enum_2.f90,
gfortran.fortran-torture/execute/enum_3.f90,
gfortran.fortran-torture/execute/enum_4.f90: New tests.
From-SVN: r106246
2005-10-30 19:09:55 +01:00
|
|
|
gfc_expr *gfc_enum_initializer (gfc_expr *, locus);
|
|
|
|
arith gfc_check_integer_range (mpz_t p, int kind);
|
2004-05-13 08:41:07 +02:00
|
|
|
|
arith.c: Include system.h, not real system headers.
* arith.c: Include system.h, not real system headers.
(MPZ_NULL, MPF_NULL, DEF_GFC_INTEGER_KIND, DEF_GFC_LOGICAL_KIND,
DEF_GFC_REAL_KIND, GFC_SP_KIND, GFC_SP_PREC, GFC_SP_EMIN, GFC_SP_EMAX,
GFC_DP_KIND, GFC_DP_PREC, GFC_DP_EMIN, GFC_DP_EMAX, GFC_QP_KIND,
GFC_QP_PREC, GFC_QP_EMIN, GFC_QP_EMAX): Remove.
(gfc_integer_kinds, gfc_logical_kinds, gfc_real_kinds,
gfc_index_integer_kind, gfc_default_integer_kind,
gfc_default_real_kind,gfc_default_double_kind,
gfc_default_character_kind, gfc_default_logical_kind,
gfc_default_complex_kind, validate_integer, validate_real,
validate_logical, validate_character,
gfc_validate_kind): Move to trans-types.c.
(gfc_set_model_kind): Use gfc_validate_kind.
(gfc_set_model): Just copy the current precision to default.
(gfc_arith_init_1): Use mpfr precision 128 for integer setup.
* f95-lang.c (gfc_init_decl_processing): Invoke gfc_init_kinds.
* gfortran.h: Update file commentary.
* trans-types.c (MAX_INT_KINDS, MAX_REAL_KINDS): New.
(gfc_default_integer_kind_1, gfc_default_real_kind_1,
gfc_default_double_kind_1, gfc_default_character_kind_1,
gfc_default_logical_kind_1, gfc_default_complex_kind_1): New.
(gfc_init_kinds): New.
(gfc_init_types): Don't set gfc_index_integer_kind here.
* trans-types.h (gfc_init_kinds): Declare.
* doc/invoke.texi: Clarify DOUBLE PRECISION behaviour wrt -r8.
From-SVN: r86637
2004-08-27 00:19:23 +02:00
|
|
|
/* trans-types.c */
|
arith.c (gfc_validate_kind): Add may_fail argument; abort if false and we don't validate the kind.
* arith.c (gfc_validate_kind): Add may_fail argument; abort if
false and we don't validate the kind.
(gfc_check_integer_range, gfc_check_real_range): Update to match.
* check.c (kind_check): Likewise.
* decl.c (gfc_match_old_kind_spec, gfc_match_kind_spec): Likewise.
(match_char_spec, match_logical_spec): Likewise.
* gfortran.h (gfc_validate_kind): Likewise.
* options.c (gfc_handle_option): Likewise.
* primary.c (match_integer_constant, match_real_constant,
match_string_constant, match_logical_constant,
match_const_complex_part): Likewise.
* simplify.c (get_kind, gfc_simplify_bit_size, gfc_simplify_digits,
gfc_simplify_epsilon, gfc_simplify_huge, gfc_simplify_ibclr,
gfc_simplify_ibset, gfc_simplify_ishft, gfc_simplify_ishftc,
gfc_simplify_maxexponent, gfc_simplify_minexponent,
gfc_simplify_nearest, gfc_simplify_not, gfc_simplify_precision,
gfc_simplify_radix, gfc_simplify_range, gfc_simplify_rrspacing,
gfc_simplify_scale, gfc_simplify_spacing, gfc_simplify_tan,
gfc_simplify_tiny): Likewise.
* trans-intrinsic.c (gfc_conv_intrinsic_aint, gfc_conv_intrinsic_mod,
gfc_conv_intrinsic_minmaxloc, gfc_conv_intrinsic_minmaxval,
prepare_arg_info): Likewise.
From-SVN: r86608
2004-08-26 08:07:52 +02:00
|
|
|
int gfc_validate_kind (bt, int, bool);
|
2004-05-13 08:41:07 +02:00
|
|
|
extern int gfc_index_integer_kind;
|
gfortran.h (gfc_default_*_kind): Remove prototypes, add extern variable declaration of same name.
* gfortran.h (gfc_default_*_kind): Remove prototypes, add extern
variable declaration of same name.
* arith.c, check.c, decl.c, dump_parse_tree.c, expr.c,
intrinsic.c, io.c, iresolve.c, match.c, options.c, primary.c,
resolve.c, simplify.c, symbol.c, trans-const.c, trans-io.c:
Replace all calls to gfc_default_*_kind with variable accesses.
* trans-types.c: Same as above.
(gfc_default_*_kind_1): Rename to gfc_default_*_kind, remove
static qualifier. Replace all occurences.
(gfc_default_*_kind): Remove functions.
From-SVN: r86662
2004-08-27 16:49:35 +02:00
|
|
|
extern int gfc_default_integer_kind;
|
2005-02-28 01:38:12 +01:00
|
|
|
extern int gfc_max_integer_kind;
|
gfortran.h (gfc_default_*_kind): Remove prototypes, add extern variable declaration of same name.
* gfortran.h (gfc_default_*_kind): Remove prototypes, add extern
variable declaration of same name.
* arith.c, check.c, decl.c, dump_parse_tree.c, expr.c,
intrinsic.c, io.c, iresolve.c, match.c, options.c, primary.c,
resolve.c, simplify.c, symbol.c, trans-const.c, trans-io.c:
Replace all calls to gfc_default_*_kind with variable accesses.
* trans-types.c: Same as above.
(gfc_default_*_kind_1): Rename to gfc_default_*_kind, remove
static qualifier. Replace all occurences.
(gfc_default_*_kind): Remove functions.
From-SVN: r86662
2004-08-27 16:49:35 +02:00
|
|
|
extern int gfc_default_real_kind;
|
|
|
|
extern int gfc_default_double_kind;
|
|
|
|
extern int gfc_default_character_kind;
|
|
|
|
extern int gfc_default_logical_kind;
|
|
|
|
extern int gfc_default_complex_kind;
|
check.c (gfc_check_besn, [...]): New functions.
2004-08-29 Steven G. Kargl <kargls@comcast.net>
Paul Brook <paul@codesourcery.com>
* check.c (gfc_check_besn, gfc_check_g77_math1): New functions.
* f95-lang.c (DO_DEFINE_MATH_BUILTIN): Define.
(DEFINE_MATH_BUILTIN, DEFINE_MATH_BUILTIN_C): Use it.
(build_builtin_fntypes): New function.
(gfc_init_builtin_functions): Use it.
* gfortran.h (enum gfc_generic_isym_id): Add GFC_ISYM_{J,Y}{0,1,N}
and GFC_ISYM_ERF{,C}.
(gfc_c_int_kind): Declare.
* intrinsic.c (add_functions): Add [d]bes* and [d]erf*.
* intrinsic.h (gfc_check_besn, gfc_check_g77_math1, gfc_resolve_besn,
gfc_resolve_g77_math1): Add prototypes.
* resolve.c (gfc_resolve_besn, gfc_resolve_g77_math1): New functions.
* mathbuiltins.def: Add comment. Change third argument. Use
DEFINE_MATH_BUILTIN_C. Add bessel and error functions.
* trans-intrinsic.c (BUILT_IN_FUNCTION): Define.
(DEFINE_MATH_BUILTIN, DEFINE_MATH_BUILTIN_C): Use it.
* trans-types.c (gfc_c_int_kind): Declare.
(gfc_init_kinds): Set it.
testsuite/
* gfortran.dg/g77/README: Update.
* gfortran.dg/g77/erfc.f: Copy from g77.f-torture.
* gfortran.dg/g77/intrinsic-unix-bessel.f: Ditto.
* gfortran.dg/g77/intrinsic-unix-erf.f: Ditto.
libgfortran/
* intrinsics/bessel.c: New file.
* intrinsics/erf.c: New file.
* Makefie.am: Add intrinsics/bessel.c and intrinsics/erf.c.
* configure.ac: Test for C99 Bessel and Error functions.
* Makefile.in: Regenerate.
* config.h.in: Regenerate.
* configure: Regenerate.
Co-Authored-By: Paul Brook <paul@codesourcery.com>
From-SVN: r86727
2004-08-29 17:58:16 +02:00
|
|
|
extern int gfc_c_int_kind;
|
2004-05-13 08:41:07 +02:00
|
|
|
|
|
|
|
/* symbol.c */
|
|
|
|
void gfc_clear_new_implicit (void);
|
2004-07-04 01:25:46 +02:00
|
|
|
try gfc_add_new_implicit_range (int, int);
|
|
|
|
try gfc_merge_new_implicit (gfc_typespec *);
|
2004-05-13 08:41:07 +02:00
|
|
|
void gfc_set_implicit_none (void);
|
|
|
|
|
|
|
|
gfc_typespec *gfc_get_default_type (gfc_symbol *, gfc_namespace *);
|
|
|
|
try gfc_set_default_type (gfc_symbol *, int, gfc_namespace *);
|
|
|
|
|
|
|
|
void gfc_set_component_attr (gfc_component *, symbol_attribute *);
|
|
|
|
void gfc_get_component_attr (symbol_attribute *, gfc_component *);
|
|
|
|
|
|
|
|
void gfc_set_sym_referenced (gfc_symbol * sym);
|
|
|
|
|
|
|
|
try gfc_add_allocatable (symbol_attribute *, locus *);
|
gfortran.h (gfc_add_dimension, [...]): Add argument.
* gfortran.h (gfc_add_dimension, gfc_add_result, gfc_add_save,
gfc_add_dummy, gfc_add_generic, gfc_add_in_common, gfc_add_data,
gfc_add_in_namelist, gfc_add_sequence, gfc_add_function,
gfc_add_subroutine, gfc_add_access, gfc_add_flavor, gfc_add_entry,
gfc_add_procedure): Add argument.
* array.c (gfc_set_array_spec), decl.c (var_element, get_proc_name,
gfc_match_null, match_type_spec, match_attr_spec,
gfc_match_formal_arglist, match_result, gfc_match_function_decl):
Update callers to match.
(gfc_match_entry) : Likewise, fix comment typo.
(gfc_match_subroutine, attr_decl1, gfc_add_dimension,
access_attr_decl, do_parm, gfc_match_save, gfc_match_modproc,
gfc_match_derived_decl): Update callers.
* interface.c (gfc_match_interface): Likewise.
* match.c (gfc_match_label, gfc_add_flavor,
gfc_match_call, gfc_match_common, gfc_match_block_data,
gfc_match_namelist, gfc_match_module, gfc_match_st_function):
Likewise.
* parse.c (parse_derived, parse_interface, parse_contained),
primary.c (gfc_match_rvalue, gfc_match_variable): Likewise.
* resolve.c (resolve_formal_arglist, resolve_entries): Update callers.
* symbol.c (check_conflict, check_used): Add new 'name' argument,
use when printing error message.
(gfc_add_dimension, gfc_add_result, gfc_add_save, gfc_add_dummy,
gfc_add_generic, gfc_add_in_common, gfc_add_data,
gfc_add_in_namelist, gfc_add_sequence, gfc_add_function,
gfc_add_subroutine, gfc_add_access, gfc_add_flavor, gfc_add_entry,
gfc_add_procedure): Add new 'name' argument. Pass along to
check_conflict and check_used.
(gfc_add_allocatable, gfc_add_external, gfc_add_intrinsic,
gfc_add_optional, gfc_add_pointer, gfc_add_target, gfc_add_elemental,
gfc_add_pure, gfc_add_recursive, gfc_add_intent,
gfc_add_explicit_interface, gfc_copy_attr): Pass NULL for new
argument in calls to any of the modified functions.
From-SVN: r94718
2005-02-07 23:16:13 +01:00
|
|
|
try gfc_add_dimension (symbol_attribute *, const char *, locus *);
|
2004-05-13 08:41:07 +02:00
|
|
|
try gfc_add_external (symbol_attribute *, locus *);
|
|
|
|
try gfc_add_intrinsic (symbol_attribute *, locus *);
|
|
|
|
try gfc_add_optional (symbol_attribute *, locus *);
|
|
|
|
try gfc_add_pointer (symbol_attribute *, locus *);
|
2005-10-24 21:28:18 +02:00
|
|
|
try gfc_add_cray_pointer (symbol_attribute *, locus *);
|
|
|
|
try gfc_add_cray_pointee (symbol_attribute *, locus *);
|
|
|
|
try gfc_mod_pointee_as (gfc_array_spec *as);
|
gfortran.h (gfc_add_dimension, [...]): Add argument.
* gfortran.h (gfc_add_dimension, gfc_add_result, gfc_add_save,
gfc_add_dummy, gfc_add_generic, gfc_add_in_common, gfc_add_data,
gfc_add_in_namelist, gfc_add_sequence, gfc_add_function,
gfc_add_subroutine, gfc_add_access, gfc_add_flavor, gfc_add_entry,
gfc_add_procedure): Add argument.
* array.c (gfc_set_array_spec), decl.c (var_element, get_proc_name,
gfc_match_null, match_type_spec, match_attr_spec,
gfc_match_formal_arglist, match_result, gfc_match_function_decl):
Update callers to match.
(gfc_match_entry) : Likewise, fix comment typo.
(gfc_match_subroutine, attr_decl1, gfc_add_dimension,
access_attr_decl, do_parm, gfc_match_save, gfc_match_modproc,
gfc_match_derived_decl): Update callers.
* interface.c (gfc_match_interface): Likewise.
* match.c (gfc_match_label, gfc_add_flavor,
gfc_match_call, gfc_match_common, gfc_match_block_data,
gfc_match_namelist, gfc_match_module, gfc_match_st_function):
Likewise.
* parse.c (parse_derived, parse_interface, parse_contained),
primary.c (gfc_match_rvalue, gfc_match_variable): Likewise.
* resolve.c (resolve_formal_arglist, resolve_entries): Update callers.
* symbol.c (check_conflict, check_used): Add new 'name' argument,
use when printing error message.
(gfc_add_dimension, gfc_add_result, gfc_add_save, gfc_add_dummy,
gfc_add_generic, gfc_add_in_common, gfc_add_data,
gfc_add_in_namelist, gfc_add_sequence, gfc_add_function,
gfc_add_subroutine, gfc_add_access, gfc_add_flavor, gfc_add_entry,
gfc_add_procedure): Add new 'name' argument. Pass along to
check_conflict and check_used.
(gfc_add_allocatable, gfc_add_external, gfc_add_intrinsic,
gfc_add_optional, gfc_add_pointer, gfc_add_target, gfc_add_elemental,
gfc_add_pure, gfc_add_recursive, gfc_add_intent,
gfc_add_explicit_interface, gfc_copy_attr): Pass NULL for new
argument in calls to any of the modified functions.
From-SVN: r94718
2005-02-07 23:16:13 +01:00
|
|
|
try gfc_add_result (symbol_attribute *, const char *, locus *);
|
|
|
|
try gfc_add_save (symbol_attribute *, const char *, locus *);
|
2004-05-13 08:41:07 +02:00
|
|
|
try gfc_add_saved_common (symbol_attribute *, locus *);
|
|
|
|
try gfc_add_target (symbol_attribute *, locus *);
|
gfortran.h (gfc_add_dimension, [...]): Add argument.
* gfortran.h (gfc_add_dimension, gfc_add_result, gfc_add_save,
gfc_add_dummy, gfc_add_generic, gfc_add_in_common, gfc_add_data,
gfc_add_in_namelist, gfc_add_sequence, gfc_add_function,
gfc_add_subroutine, gfc_add_access, gfc_add_flavor, gfc_add_entry,
gfc_add_procedure): Add argument.
* array.c (gfc_set_array_spec), decl.c (var_element, get_proc_name,
gfc_match_null, match_type_spec, match_attr_spec,
gfc_match_formal_arglist, match_result, gfc_match_function_decl):
Update callers to match.
(gfc_match_entry) : Likewise, fix comment typo.
(gfc_match_subroutine, attr_decl1, gfc_add_dimension,
access_attr_decl, do_parm, gfc_match_save, gfc_match_modproc,
gfc_match_derived_decl): Update callers.
* interface.c (gfc_match_interface): Likewise.
* match.c (gfc_match_label, gfc_add_flavor,
gfc_match_call, gfc_match_common, gfc_match_block_data,
gfc_match_namelist, gfc_match_module, gfc_match_st_function):
Likewise.
* parse.c (parse_derived, parse_interface, parse_contained),
primary.c (gfc_match_rvalue, gfc_match_variable): Likewise.
* resolve.c (resolve_formal_arglist, resolve_entries): Update callers.
* symbol.c (check_conflict, check_used): Add new 'name' argument,
use when printing error message.
(gfc_add_dimension, gfc_add_result, gfc_add_save, gfc_add_dummy,
gfc_add_generic, gfc_add_in_common, gfc_add_data,
gfc_add_in_namelist, gfc_add_sequence, gfc_add_function,
gfc_add_subroutine, gfc_add_access, gfc_add_flavor, gfc_add_entry,
gfc_add_procedure): Add new 'name' argument. Pass along to
check_conflict and check_used.
(gfc_add_allocatable, gfc_add_external, gfc_add_intrinsic,
gfc_add_optional, gfc_add_pointer, gfc_add_target, gfc_add_elemental,
gfc_add_pure, gfc_add_recursive, gfc_add_intent,
gfc_add_explicit_interface, gfc_copy_attr): Pass NULL for new
argument in calls to any of the modified functions.
From-SVN: r94718
2005-02-07 23:16:13 +01:00
|
|
|
try gfc_add_dummy (symbol_attribute *, const char *, locus *);
|
|
|
|
try gfc_add_generic (symbol_attribute *, const char *, locus *);
|
2004-05-13 08:41:07 +02:00
|
|
|
try gfc_add_common (symbol_attribute *, locus *);
|
gfortran.h (gfc_add_dimension, [...]): Add argument.
* gfortran.h (gfc_add_dimension, gfc_add_result, gfc_add_save,
gfc_add_dummy, gfc_add_generic, gfc_add_in_common, gfc_add_data,
gfc_add_in_namelist, gfc_add_sequence, gfc_add_function,
gfc_add_subroutine, gfc_add_access, gfc_add_flavor, gfc_add_entry,
gfc_add_procedure): Add argument.
* array.c (gfc_set_array_spec), decl.c (var_element, get_proc_name,
gfc_match_null, match_type_spec, match_attr_spec,
gfc_match_formal_arglist, match_result, gfc_match_function_decl):
Update callers to match.
(gfc_match_entry) : Likewise, fix comment typo.
(gfc_match_subroutine, attr_decl1, gfc_add_dimension,
access_attr_decl, do_parm, gfc_match_save, gfc_match_modproc,
gfc_match_derived_decl): Update callers.
* interface.c (gfc_match_interface): Likewise.
* match.c (gfc_match_label, gfc_add_flavor,
gfc_match_call, gfc_match_common, gfc_match_block_data,
gfc_match_namelist, gfc_match_module, gfc_match_st_function):
Likewise.
* parse.c (parse_derived, parse_interface, parse_contained),
primary.c (gfc_match_rvalue, gfc_match_variable): Likewise.
* resolve.c (resolve_formal_arglist, resolve_entries): Update callers.
* symbol.c (check_conflict, check_used): Add new 'name' argument,
use when printing error message.
(gfc_add_dimension, gfc_add_result, gfc_add_save, gfc_add_dummy,
gfc_add_generic, gfc_add_in_common, gfc_add_data,
gfc_add_in_namelist, gfc_add_sequence, gfc_add_function,
gfc_add_subroutine, gfc_add_access, gfc_add_flavor, gfc_add_entry,
gfc_add_procedure): Add new 'name' argument. Pass along to
check_conflict and check_used.
(gfc_add_allocatable, gfc_add_external, gfc_add_intrinsic,
gfc_add_optional, gfc_add_pointer, gfc_add_target, gfc_add_elemental,
gfc_add_pure, gfc_add_recursive, gfc_add_intent,
gfc_add_explicit_interface, gfc_copy_attr): Pass NULL for new
argument in calls to any of the modified functions.
From-SVN: r94718
2005-02-07 23:16:13 +01:00
|
|
|
try gfc_add_in_common (symbol_attribute *, const char *, locus *);
|
2005-10-01 09:39:08 +02:00
|
|
|
try gfc_add_in_equivalence (symbol_attribute *, const char *, locus *);
|
gfortran.h (gfc_add_dimension, [...]): Add argument.
* gfortran.h (gfc_add_dimension, gfc_add_result, gfc_add_save,
gfc_add_dummy, gfc_add_generic, gfc_add_in_common, gfc_add_data,
gfc_add_in_namelist, gfc_add_sequence, gfc_add_function,
gfc_add_subroutine, gfc_add_access, gfc_add_flavor, gfc_add_entry,
gfc_add_procedure): Add argument.
* array.c (gfc_set_array_spec), decl.c (var_element, get_proc_name,
gfc_match_null, match_type_spec, match_attr_spec,
gfc_match_formal_arglist, match_result, gfc_match_function_decl):
Update callers to match.
(gfc_match_entry) : Likewise, fix comment typo.
(gfc_match_subroutine, attr_decl1, gfc_add_dimension,
access_attr_decl, do_parm, gfc_match_save, gfc_match_modproc,
gfc_match_derived_decl): Update callers.
* interface.c (gfc_match_interface): Likewise.
* match.c (gfc_match_label, gfc_add_flavor,
gfc_match_call, gfc_match_common, gfc_match_block_data,
gfc_match_namelist, gfc_match_module, gfc_match_st_function):
Likewise.
* parse.c (parse_derived, parse_interface, parse_contained),
primary.c (gfc_match_rvalue, gfc_match_variable): Likewise.
* resolve.c (resolve_formal_arglist, resolve_entries): Update callers.
* symbol.c (check_conflict, check_used): Add new 'name' argument,
use when printing error message.
(gfc_add_dimension, gfc_add_result, gfc_add_save, gfc_add_dummy,
gfc_add_generic, gfc_add_in_common, gfc_add_data,
gfc_add_in_namelist, gfc_add_sequence, gfc_add_function,
gfc_add_subroutine, gfc_add_access, gfc_add_flavor, gfc_add_entry,
gfc_add_procedure): Add new 'name' argument. Pass along to
check_conflict and check_used.
(gfc_add_allocatable, gfc_add_external, gfc_add_intrinsic,
gfc_add_optional, gfc_add_pointer, gfc_add_target, gfc_add_elemental,
gfc_add_pure, gfc_add_recursive, gfc_add_intent,
gfc_add_explicit_interface, gfc_copy_attr): Pass NULL for new
argument in calls to any of the modified functions.
From-SVN: r94718
2005-02-07 23:16:13 +01:00
|
|
|
try gfc_add_data (symbol_attribute *, const char *, locus *);
|
|
|
|
try gfc_add_in_namelist (symbol_attribute *, const char *, locus *);
|
|
|
|
try gfc_add_sequence (symbol_attribute *, const char *, locus *);
|
2004-05-13 08:41:07 +02:00
|
|
|
try gfc_add_elemental (symbol_attribute *, locus *);
|
|
|
|
try gfc_add_pure (symbol_attribute *, locus *);
|
|
|
|
try gfc_add_recursive (symbol_attribute *, locus *);
|
gfortran.h (gfc_add_dimension, [...]): Add argument.
* gfortran.h (gfc_add_dimension, gfc_add_result, gfc_add_save,
gfc_add_dummy, gfc_add_generic, gfc_add_in_common, gfc_add_data,
gfc_add_in_namelist, gfc_add_sequence, gfc_add_function,
gfc_add_subroutine, gfc_add_access, gfc_add_flavor, gfc_add_entry,
gfc_add_procedure): Add argument.
* array.c (gfc_set_array_spec), decl.c (var_element, get_proc_name,
gfc_match_null, match_type_spec, match_attr_spec,
gfc_match_formal_arglist, match_result, gfc_match_function_decl):
Update callers to match.
(gfc_match_entry) : Likewise, fix comment typo.
(gfc_match_subroutine, attr_decl1, gfc_add_dimension,
access_attr_decl, do_parm, gfc_match_save, gfc_match_modproc,
gfc_match_derived_decl): Update callers.
* interface.c (gfc_match_interface): Likewise.
* match.c (gfc_match_label, gfc_add_flavor,
gfc_match_call, gfc_match_common, gfc_match_block_data,
gfc_match_namelist, gfc_match_module, gfc_match_st_function):
Likewise.
* parse.c (parse_derived, parse_interface, parse_contained),
primary.c (gfc_match_rvalue, gfc_match_variable): Likewise.
* resolve.c (resolve_formal_arglist, resolve_entries): Update callers.
* symbol.c (check_conflict, check_used): Add new 'name' argument,
use when printing error message.
(gfc_add_dimension, gfc_add_result, gfc_add_save, gfc_add_dummy,
gfc_add_generic, gfc_add_in_common, gfc_add_data,
gfc_add_in_namelist, gfc_add_sequence, gfc_add_function,
gfc_add_subroutine, gfc_add_access, gfc_add_flavor, gfc_add_entry,
gfc_add_procedure): Add new 'name' argument. Pass along to
check_conflict and check_used.
(gfc_add_allocatable, gfc_add_external, gfc_add_intrinsic,
gfc_add_optional, gfc_add_pointer, gfc_add_target, gfc_add_elemental,
gfc_add_pure, gfc_add_recursive, gfc_add_intent,
gfc_add_explicit_interface, gfc_copy_attr): Pass NULL for new
argument in calls to any of the modified functions.
From-SVN: r94718
2005-02-07 23:16:13 +01:00
|
|
|
try gfc_add_function (symbol_attribute *, const char *, locus *);
|
|
|
|
try gfc_add_subroutine (symbol_attribute *, const char *, locus *);
|
|
|
|
|
|
|
|
try gfc_add_access (symbol_attribute *, gfc_access, const char *, locus *);
|
|
|
|
try gfc_add_flavor (symbol_attribute *, sym_flavor, const char *, locus *);
|
|
|
|
try gfc_add_entry (symbol_attribute *, const char *, locus *);
|
|
|
|
try gfc_add_procedure (symbol_attribute *, procedure_type,
|
|
|
|
const char *, locus *);
|
2004-05-13 08:41:07 +02:00
|
|
|
try gfc_add_intent (symbol_attribute *, sym_intent, locus *);
|
|
|
|
try gfc_add_explicit_interface (gfc_symbol *, ifsrc,
|
|
|
|
gfc_formal_arglist *, locus *);
|
|
|
|
try gfc_add_type (gfc_symbol *, gfc_typespec *, locus *);
|
|
|
|
|
|
|
|
void gfc_clear_attr (symbol_attribute *);
|
|
|
|
try gfc_missing_attr (symbol_attribute *, locus *);
|
|
|
|
try gfc_copy_attr (symbol_attribute *, symbol_attribute *, locus *);
|
|
|
|
|
|
|
|
try gfc_add_component (gfc_symbol *, const char *, gfc_component **);
|
|
|
|
gfc_symbol *gfc_use_derived (gfc_symbol *);
|
|
|
|
gfc_symtree *gfc_use_derived_tree (gfc_symtree *);
|
|
|
|
gfc_component *gfc_find_component (gfc_symbol *, const char *);
|
|
|
|
|
|
|
|
gfc_st_label *gfc_get_st_label (int);
|
|
|
|
void gfc_free_st_label (gfc_st_label *);
|
|
|
|
void gfc_define_st_label (gfc_st_label *, gfc_sl_type, locus *);
|
|
|
|
try gfc_reference_st_label (gfc_st_label *, gfc_sl_type);
|
|
|
|
|
2005-02-23 20:02:29 +01:00
|
|
|
gfc_namespace *gfc_get_namespace (gfc_namespace *, int);
|
2004-05-13 08:41:07 +02:00
|
|
|
gfc_symtree *gfc_new_symtree (gfc_symtree **, const char *);
|
|
|
|
gfc_symtree *gfc_find_symtree (gfc_symtree *, const char *);
|
|
|
|
gfc_user_op *gfc_get_uop (const char *);
|
|
|
|
gfc_user_op *gfc_find_uop (const char *, gfc_namespace *);
|
|
|
|
void gfc_free_symbol (gfc_symbol *);
|
|
|
|
gfc_symbol *gfc_new_symbol (const char *, gfc_namespace *);
|
|
|
|
int gfc_find_symbol (const char *, gfc_namespace *, int, gfc_symbol **);
|
|
|
|
int gfc_find_sym_tree (const char *, gfc_namespace *, int, gfc_symtree **);
|
|
|
|
int gfc_get_symbol (const char *, gfc_namespace *, gfc_symbol **);
|
|
|
|
int gfc_get_sym_tree (const char *, gfc_namespace *, gfc_symtree **);
|
|
|
|
int gfc_get_ha_symbol (const char *, gfc_symbol **);
|
|
|
|
int gfc_get_ha_sym_tree (const char *, gfc_symtree **);
|
|
|
|
|
|
|
|
int gfc_symbols_could_alias (gfc_symbol *, gfc_symbol *);
|
|
|
|
|
|
|
|
void gfc_undo_symbols (void);
|
|
|
|
void gfc_commit_symbols (void);
|
|
|
|
void gfc_free_namespace (gfc_namespace *);
|
|
|
|
|
|
|
|
void gfc_symbol_init_2 (void);
|
|
|
|
void gfc_symbol_done_2 (void);
|
|
|
|
|
Andrew Vaught <andyv@firstinter.net>
2004-06-29 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de>
Andrew Vaught <andyv@firstinter.net>
PR fortran/13249
PR fortran/15481
* declc (gfc_match_save): Adapt to new common structures,
don't allow saving USE-associated common.
* dump-parse-tree (gfc_show_attr): (saved_)common are not
symbol attributes any longer.
(gfc_show_symbol): Don't show old-style commons any longer.
(gfc_show_namespace): Adapt call to gfc_traverse_symtree to new
interface.
* gfortran.h (symbol_attribute): Remove common and saved_common
attributes.
(gfc_symbol): Remove common_head element.
(gfc_common_head): New struct.
(gfc_get_common_head): New macro.
(gfc_symtree): Add field 'common' to union.
(gfc_namespace): Add field 'common_root'; change type of field
'blank_common' to blank_common.
(gfc_add_data): New prototype.
(gfc_traverse_symtree): Expect a symtree as first argument
instead of namespace.
* match.c (gfc_get_common): New function.
(match_common_name): Change to take char * as argument, adapt,
fix bug with empty name.
(gfc_match_common): Adapt to new data structures. Disallow
redeclaration of USE-associated COMMON-block. Fix bug with
empty common.
(var_element): Adapt to new common structures.
* match.h (gfc_get_common): Declare.
* module.c: Add 2004 to copyright years, add commons to module
file layout description.
(ab_attribute, attr_bits, mio_symbol_attributes): Remove code
for removed attributes.
(mio_symbol): Adapt to new way of storing common relations.
(load_commons): New function.
(read_module): Skip common list on first pass, load_commons at
second.
(write_commons): New function.
(write_module): Call write_commons().
* symbol.c (gfc_add_saved_comon, gfc_add_common): Remove
functions related to removed attributes.
(gfc_add_data): New function.
(gfc_clear_attr): Don't set removed attributes.
(gfc_copy_attr): Don't copy removed attributes.
(traverse_symtree): Remove.
(gfc_traverse_symtree): Don't traverse symbol
tree of the passed namespace, but require a symtree to be passed
instead. Unify with traverse_symtree.
(gfc_traverse_ns): Call gfc_traverse_symtree according to new
interface.
(save_symbol): Remove setting of removed attribute.
* trans-common.c (gfc_sym_mangled_common_id): Change to
take 'char *' argument instead of 'gfc_symbol'.
(build_common_decl, new_segment, translate_common): Adapt to new
data structures, add new
argument name.
(create_common): Adapt to new data structures, add new
argument name. Fix typo in intialization of derived types.
(finish_equivalences): Add second argument in call to
create_common.
(named_common): take 'gfc_symtree' instead of 'gfc_symbol'.
(gfc_trans_common): Adapt to new data structures.
* trans-decl.c (gfc_create_module_variables): Also output
symbols from commons.
Co-Authored-By: Andrew Vaught <andyv@firstinter.net>
From-SVN: r83871
2004-06-29 20:57:25 +02:00
|
|
|
void gfc_traverse_symtree (gfc_symtree *, void (*)(gfc_symtree *));
|
2004-05-13 08:41:07 +02:00
|
|
|
void gfc_traverse_ns (gfc_namespace *, void (*)(gfc_symbol *));
|
|
|
|
void gfc_traverse_user_op (gfc_namespace *, void (*)(gfc_user_op *));
|
|
|
|
void gfc_save_all (gfc_namespace *);
|
|
|
|
|
|
|
|
void gfc_symbol_state (void);
|
|
|
|
|
2005-02-24 19:26:27 +01:00
|
|
|
gfc_gsymbol *gfc_get_gsymbol (const char *);
|
|
|
|
gfc_gsymbol *gfc_find_gsymbol (gfc_gsymbol *, const char *);
|
2004-06-29 20:01:04 +02:00
|
|
|
|
2004-05-13 08:41:07 +02:00
|
|
|
/* intrinsic.c */
|
|
|
|
extern int gfc_init_expr;
|
|
|
|
|
|
|
|
/* Given a symbol that we have decided is intrinsic, mark it as such
|
|
|
|
by placing it into a special module that is otherwise impossible to
|
|
|
|
read or write. */
|
|
|
|
|
2005-02-24 19:26:27 +01:00
|
|
|
#define gfc_intrinsic_symbol(SYM) SYM->module = gfc_get_string ("(intrinsic)")
|
2004-05-13 08:41:07 +02:00
|
|
|
|
|
|
|
void gfc_intrinsic_init_1 (void);
|
|
|
|
void gfc_intrinsic_done_1 (void);
|
|
|
|
|
|
|
|
char gfc_type_letter (bt);
|
|
|
|
gfc_symbol * gfc_get_intrinsic_sub_symbol (const char *);
|
|
|
|
try gfc_convert_type (gfc_expr *, gfc_typespec *, int);
|
|
|
|
try gfc_convert_type_warn (gfc_expr *, gfc_typespec *, int, int);
|
|
|
|
int gfc_generic_intrinsic (const char *);
|
|
|
|
int gfc_specific_intrinsic (const char *);
|
|
|
|
int gfc_intrinsic_name (const char *, int);
|
|
|
|
gfc_intrinsic_sym *gfc_find_function (const char *);
|
|
|
|
|
|
|
|
match gfc_intrinsic_func_interface (gfc_expr *, int);
|
|
|
|
match gfc_intrinsic_sub_interface (gfc_code *, int);
|
|
|
|
|
|
|
|
/* simplify.c */
|
|
|
|
void gfc_simplify_init_1 (void);
|
|
|
|
|
|
|
|
/* match.c -- FIXME */
|
|
|
|
void gfc_free_iterator (gfc_iterator *, int);
|
|
|
|
void gfc_free_forall_iterator (gfc_forall_iterator *);
|
|
|
|
void gfc_free_alloc_list (gfc_alloc *);
|
|
|
|
void gfc_free_namelist (gfc_namelist *);
|
|
|
|
void gfc_free_equiv (gfc_equiv *);
|
|
|
|
void gfc_free_data (gfc_data *);
|
|
|
|
void gfc_free_case_list (gfc_case *);
|
|
|
|
|
|
|
|
/* expr.c */
|
|
|
|
void gfc_free_actual_arglist (gfc_actual_arglist *);
|
|
|
|
gfc_actual_arglist *gfc_copy_actual_arglist (gfc_actual_arglist *);
|
|
|
|
const char *gfc_extract_int (gfc_expr *, int *);
|
|
|
|
|
|
|
|
gfc_expr *gfc_build_conversion (gfc_expr *);
|
|
|
|
void gfc_free_ref_list (gfc_ref *);
|
|
|
|
void gfc_type_convert_binary (gfc_expr *);
|
|
|
|
int gfc_is_constant_expr (gfc_expr *);
|
|
|
|
try gfc_simplify_expr (gfc_expr *, int);
|
|
|
|
|
|
|
|
gfc_expr *gfc_get_expr (void);
|
|
|
|
void gfc_free_expr (gfc_expr *);
|
|
|
|
void gfc_replace_expr (gfc_expr *, gfc_expr *);
|
|
|
|
gfc_expr *gfc_int_expr (int);
|
|
|
|
gfc_expr *gfc_logical_expr (int, locus *);
|
|
|
|
mpz_t *gfc_copy_shape (mpz_t *, int);
|
2004-08-08 14:28:25 +02:00
|
|
|
mpz_t *gfc_copy_shape_excluding (mpz_t *, int, gfc_expr *);
|
2004-05-13 08:41:07 +02:00
|
|
|
gfc_expr *gfc_copy_expr (gfc_expr *);
|
|
|
|
|
|
|
|
try gfc_specification_expr (gfc_expr *);
|
|
|
|
|
|
|
|
int gfc_numeric_ts (gfc_typespec *);
|
|
|
|
int gfc_kind_max (gfc_expr *, gfc_expr *);
|
|
|
|
|
|
|
|
try gfc_check_conformance (const char *, gfc_expr *, gfc_expr *);
|
|
|
|
try gfc_check_assign (gfc_expr *, gfc_expr *, int);
|
|
|
|
try gfc_check_pointer_assign (gfc_expr *, gfc_expr *);
|
|
|
|
try gfc_check_assign_symbol (gfc_symbol *, gfc_expr *);
|
|
|
|
|
2004-05-18 02:48:05 +02:00
|
|
|
gfc_expr *gfc_default_initializer (gfc_typespec *);
|
2004-08-29 18:58:39 +02:00
|
|
|
gfc_expr *gfc_get_variable_expr (gfc_symtree *);
|
|
|
|
|
2004-05-18 02:48:05 +02:00
|
|
|
|
2004-05-13 08:41:07 +02:00
|
|
|
/* st.c */
|
|
|
|
extern gfc_code new_st;
|
|
|
|
|
|
|
|
void gfc_clear_new_st (void);
|
|
|
|
gfc_code *gfc_get_code (void);
|
|
|
|
gfc_code *gfc_append_code (gfc_code *, gfc_code *);
|
|
|
|
void gfc_free_statement (gfc_code *);
|
|
|
|
void gfc_free_statements (gfc_code *);
|
|
|
|
|
|
|
|
/* resolve.c */
|
|
|
|
try gfc_resolve_expr (gfc_expr *);
|
|
|
|
void gfc_resolve (gfc_namespace *);
|
|
|
|
int gfc_impure_variable (gfc_symbol *);
|
|
|
|
int gfc_pure (gfc_symbol *);
|
|
|
|
int gfc_elemental (gfc_symbol *);
|
2004-12-12 21:27:02 +01:00
|
|
|
try gfc_resolve_iterator (gfc_iterator *, bool);
|
2004-05-13 08:41:07 +02:00
|
|
|
try gfc_resolve_index (gfc_expr *, int);
|
2005-08-10 22:16:29 +02:00
|
|
|
try gfc_resolve_dim_arg (gfc_expr *);
|
2005-10-17 22:52:37 +02:00
|
|
|
int gfc_is_formal_arg (void);
|
2004-05-13 08:41:07 +02:00
|
|
|
|
|
|
|
/* array.c */
|
|
|
|
void gfc_free_array_spec (gfc_array_spec *);
|
|
|
|
gfc_array_ref *gfc_copy_array_ref (gfc_array_ref *);
|
|
|
|
|
|
|
|
try gfc_set_array_spec (gfc_symbol *, gfc_array_spec *, locus *);
|
|
|
|
gfc_array_spec *gfc_copy_array_spec (gfc_array_spec *);
|
|
|
|
try gfc_resolve_array_spec (gfc_array_spec *, int);
|
|
|
|
|
|
|
|
int gfc_compare_array_spec (gfc_array_spec *, gfc_array_spec *);
|
|
|
|
|
|
|
|
gfc_expr *gfc_start_constructor (bt, int, locus *);
|
|
|
|
void gfc_append_constructor (gfc_expr *, gfc_expr *);
|
|
|
|
void gfc_free_constructor (gfc_constructor *);
|
|
|
|
void gfc_simplify_iterator_var (gfc_expr *);
|
|
|
|
try gfc_expand_constructor (gfc_expr *);
|
|
|
|
int gfc_constant_ac (gfc_expr *);
|
|
|
|
int gfc_expanded_ac (gfc_expr *);
|
|
|
|
try gfc_resolve_array_constructor (gfc_expr *);
|
|
|
|
try gfc_check_constructor_type (gfc_expr *);
|
|
|
|
try gfc_check_iter_variable (gfc_expr *);
|
|
|
|
try gfc_check_constructor (gfc_expr *, try (*)(gfc_expr *));
|
|
|
|
gfc_constructor *gfc_copy_constructor (gfc_constructor * src);
|
|
|
|
gfc_expr *gfc_get_array_element (gfc_expr *, int);
|
|
|
|
try gfc_array_size (gfc_expr *, mpz_t *);
|
|
|
|
try gfc_array_dimen_size (gfc_expr *, int, mpz_t *);
|
|
|
|
try gfc_array_ref_shape (gfc_array_ref *, mpz_t *);
|
|
|
|
gfc_array_ref *gfc_find_array_ref (gfc_expr *);
|
|
|
|
void gfc_insert_constructor (gfc_expr *, gfc_constructor *);
|
|
|
|
gfc_constructor *gfc_get_constructor (void);
|
|
|
|
tree gfc_conv_array_initializer (tree type, gfc_expr * expr);
|
|
|
|
try spec_size (gfc_array_spec *, mpz_t *);
|
2004-07-09 23:20:50 +02:00
|
|
|
int gfc_is_compile_time_shape (gfc_array_spec *);
|
2004-05-13 08:41:07 +02:00
|
|
|
|
|
|
|
/* interface.c -- FIXME: some of these should be in symbol.c */
|
|
|
|
void gfc_free_interface (gfc_interface *);
|
|
|
|
int gfc_compare_types (gfc_typespec *, gfc_typespec *);
|
|
|
|
void gfc_check_interfaces (gfc_namespace *);
|
|
|
|
void gfc_procedure_use (gfc_symbol *, gfc_actual_arglist **, locus *);
|
|
|
|
gfc_symbol *gfc_search_interface (gfc_interface *, int,
|
|
|
|
gfc_actual_arglist **);
|
|
|
|
try gfc_extend_expr (gfc_expr *);
|
|
|
|
void gfc_free_formal_arglist (gfc_formal_arglist *);
|
|
|
|
try gfc_extend_assign (gfc_code *, gfc_namespace *);
|
|
|
|
try gfc_add_interface (gfc_symbol * sym);
|
|
|
|
|
|
|
|
/* io.c */
|
|
|
|
extern gfc_st_label format_asterisk;
|
|
|
|
|
|
|
|
void gfc_free_open (gfc_open *);
|
|
|
|
try gfc_resolve_open (gfc_open *);
|
|
|
|
void gfc_free_close (gfc_close *);
|
|
|
|
try gfc_resolve_close (gfc_close *);
|
|
|
|
void gfc_free_filepos (gfc_filepos *);
|
|
|
|
try gfc_resolve_filepos (gfc_filepos *);
|
|
|
|
void gfc_free_inquire (gfc_inquire *);
|
|
|
|
try gfc_resolve_inquire (gfc_inquire *);
|
|
|
|
void gfc_free_dt (gfc_dt *);
|
|
|
|
try gfc_resolve_dt (gfc_dt *);
|
|
|
|
|
|
|
|
/* module.c */
|
|
|
|
void gfc_module_init_2 (void);
|
|
|
|
void gfc_module_done_2 (void);
|
|
|
|
void gfc_dump_module (const char *, int);
|
2005-01-22 19:23:43 +01:00
|
|
|
bool gfc_check_access (gfc_access, gfc_access);
|
2004-05-13 08:41:07 +02:00
|
|
|
|
|
|
|
/* primary.c */
|
|
|
|
symbol_attribute gfc_variable_attr (gfc_expr *, gfc_typespec *);
|
|
|
|
symbol_attribute gfc_expr_attr (gfc_expr *);
|
|
|
|
|
|
|
|
/* trans.c */
|
|
|
|
void gfc_generate_code (gfc_namespace *);
|
|
|
|
void gfc_generate_module_code (gfc_namespace *);
|
|
|
|
|
|
|
|
/* bbt.c */
|
|
|
|
typedef int (*compare_fn) (void *, void *);
|
|
|
|
void gfc_insert_bbt (void *, void *, compare_fn);
|
|
|
|
void gfc_delete_bbt (void *, void *, compare_fn);
|
|
|
|
|
|
|
|
/* dump-parse-tree.c */
|
|
|
|
void gfc_show_namespace (gfc_namespace *);
|
|
|
|
|
|
|
|
/* parse.c */
|
|
|
|
try gfc_parse_file (void);
|
|
|
|
|
2004-07-11 00:37:16 +02:00
|
|
|
#endif /* GCC_GFORTRAN_H */
|