diff options
| author | Tobias Burnus <burnus@net-b.de> | 2012-06-18 20:37:16 +0200 |
|---|---|---|
| committer | Tobias Burnus <burnus@gcc.gnu.org> | 2012-06-18 20:37:16 +0200 |
| commit | 32e7b05d82d19fa9eefd489a18cd924e7d5ceb39 (patch) | |
| tree | db31a8a861d04230f1f54113822355b502e8b5ea /gcc/fortran/intrinsic.h | |
| parent | 478ad83d94c54c0e8e939336fcfbbfb85529a6d9 (diff) | |
| download | gcc-32e7b05d82d19fa9eefd489a18cd924e7d5ceb39.zip gcc-32e7b05d82d19fa9eefd489a18cd924e7d5ceb39.tar.gz gcc-32e7b05d82d19fa9eefd489a18cd924e7d5ceb39.tar.bz2 | |
intrinsic.h (gfc_resolve_rank): New prototype.
2012-06-18 Tobias Burnus <burnus@net-b.de>
* intrinsic.h (gfc_resolve_rank): New prototype.
* intrinsic.c (add_functions): Use gfc_resolve_rank.
* iresolve.c (add_functions): New function.
* trans-intrinsic.c (gfc_conv_intrinsic_rank): New function.
(gfc_conv_intrinsic_function): Call it.
From-SVN: r188751
Diffstat (limited to 'gcc/fortran/intrinsic.h')
| -rw-r--r-- | gcc/fortran/intrinsic.h | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/gcc/fortran/intrinsic.h b/gcc/fortran/intrinsic.h index bfc2455..2635ba6 100644 --- a/gcc/fortran/intrinsic.h +++ b/gcc/fortran/intrinsic.h @@ -486,6 +486,7 @@ void gfc_resolve_long (gfc_expr *, gfc_expr *); void gfc_resolve_ior (gfc_expr *, gfc_expr *, gfc_expr *); void gfc_resolve_iparity (gfc_expr *, gfc_expr *, gfc_expr *, gfc_expr *); void gfc_resolve_isatty (gfc_expr *, gfc_expr *); +void gfc_resolve_rank (gfc_expr *, gfc_expr *); void gfc_resolve_rshift (gfc_expr *, gfc_expr *, gfc_expr *); void gfc_resolve_lshift (gfc_expr *, gfc_expr *, gfc_expr *); void gfc_resolve_ishft (gfc_expr *, gfc_expr *, gfc_expr *); |