diff options
| author | Bernhard Reutner-Fischer <aldot@gcc.gnu.org> | 2016-06-19 12:38:16 +0200 |
|---|---|---|
| committer | Bernhard Reutner-Fischer <aldot@gcc.gnu.org> | 2016-06-19 12:38:16 +0200 |
| commit | d42844f1fadda7cb8bf37a104d57f4f0e0302a1f (patch) | |
| tree | b40b06f72522e2e295cc3d3c5b40fbc5c2e9f312 /gcc/fortran/trans-intrinsic.c | |
| parent | 323524d939e45afe9b9e209f6e860980f3bad9d0 (diff) | |
| download | gcc-d42844f1fadda7cb8bf37a104d57f4f0e0302a1f.zip gcc-d42844f1fadda7cb8bf37a104d57f4f0e0302a1f.tar.gz gcc-d42844f1fadda7cb8bf37a104d57f4f0e0302a1f.tar.bz2 | |
Use gfc_add_*_component defines where appropriate
A couple of places used gfc_add_component_ref(expr, "string") instead of
the defines from gfortran.h
From-SVN: r237580
Diffstat (limited to 'gcc/fortran/trans-intrinsic.c')
| -rw-r--r-- | gcc/fortran/trans-intrinsic.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/trans-intrinsic.c b/gcc/fortran/trans-intrinsic.c index 1aaf4e2..574300e 100644 --- a/gcc/fortran/trans-intrinsic.c +++ b/gcc/fortran/trans-intrinsic.c @@ -7137,7 +7137,7 @@ gfc_conv_intrinsic_loc (gfc_se * se, gfc_expr * expr) if (arg_expr->rank == 0) { if (arg_expr->ts.type == BT_CLASS) - gfc_add_component_ref (arg_expr, "_data"); + gfc_add_data_component (arg_expr); gfc_conv_expr_reference (se, arg_expr); } else |