diff options
| author | Fritz Reese <fritzoreese@gmail.com> | 2016-08-15 21:19:09 +0000 |
|---|---|---|
| committer | Fritz Reese <foreese@gcc.gnu.org> | 2016-08-15 21:19:09 +0000 |
| commit | 7fc61626174d8fa80e2af1ff693b7075da4cf039 (patch) | |
| tree | fdbf0c01463438b4e88470ff54f74cbb32cfe8b7 /gcc/fortran/lang.opt | |
| parent | 874be74ab3d68a57e7938900e9e1364b8101ade9 (diff) | |
| download | gcc-7fc61626174d8fa80e2af1ff693b7075da4cf039.zip gcc-7fc61626174d8fa80e2af1ff693b7075da4cf039.tar.gz gcc-7fc61626174d8fa80e2af1ff693b7075da4cf039.tar.bz2 | |
lang.opt, [...]: New flag -finit-derived.
2016-08-15 Fritz Reese <fritzoreese@gmail.com>
gcc/fortran/
* lang.opt, invoke.texi: New flag -finit-derived.
* gfortran.h (gfc_build_default_init_expr, gfc_apply_init,
gfc_generate_initializer): New prototypes.
* expr.c (gfc_build_default_init_expr, gfc_apply_init,
component_initializer, gfc_generate_initializer): New functions.
* expr.c (gfc_default_initializer): Wrap gfc_generate_initializer.
* decl.c (build_struct): Move common code to gfc_apply_init.
* resolve.c (can_generate_init): New function.
* resolve.c (build_default_init_expr): Wrap gfc_build_default_init_expr.
* resolve.c (apply_default_init, resolve_fl_variable_derived): Use
gfc_generate_initializer.
* trans-decl.c (gfc_generate_function_code): Use
gfc_generate_initializer.
gcc/testsuite/gfortran.dg/
* init_flag_13.f90: New testcase.
* init_flag_14.f90: Ditto.
* init_flag_15.f03: Ditto.
* dec_init_1.f90: Ditto.
* dec_init_2.f90: Ditto.
From-SVN: r239489
Diffstat (limited to 'gcc/fortran/lang.opt')
| -rw-r--r-- | gcc/fortran/lang.opt | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/gcc/fortran/lang.opt b/gcc/fortran/lang.opt index 4ff54e2..8ec5400 100644 --- a/gcc/fortran/lang.opt +++ b/gcc/fortran/lang.opt @@ -528,6 +528,10 @@ finit-character= Fortran RejectNegative Joined UInteger -finit-character=<n> Initialize local character variables to ASCII value n. +finit-derived +Fortran Var(flag_init_derived) +Initialize components of derived type variables according to other init flags. + finit-integer= Fortran RejectNegative Joined -finit-integer=<n> Initialize local integer variables to n. |