Index: gcc/gcc/fortran/intrinsic.h |
diff --git a/gcc/gcc/fortran/intrinsic.h b/gcc/gcc/fortran/intrinsic.h |
index 83c5207785b7ec52e55a5feb2281b5fde93956c9..7ca8031cfac074431440e7da00d0b6561c8ba787 100644 |
--- a/gcc/gcc/fortran/intrinsic.h |
+++ b/gcc/gcc/fortran/intrinsic.h |
@@ -37,9 +37,10 @@ gfc_try gfc_check_achar (gfc_expr *, gfc_expr *); |
gfc_try gfc_check_all_any (gfc_expr *, gfc_expr *); |
gfc_try gfc_check_allocated (gfc_expr *); |
gfc_try gfc_check_associated (gfc_expr *, gfc_expr *); |
+gfc_try gfc_check_atan_2 (gfc_expr *, gfc_expr *); |
gfc_try gfc_check_atan2 (gfc_expr *, gfc_expr *); |
gfc_try gfc_check_besn (gfc_expr *, gfc_expr *); |
-gfc_try gfc_check_btest (gfc_expr *, gfc_expr *); |
+gfc_try gfc_check_bitfcn (gfc_expr *, gfc_expr *); |
gfc_try gfc_check_char (gfc_expr *, gfc_expr *); |
gfc_try gfc_check_chdir (gfc_expr *); |
gfc_try gfc_check_chmod (gfc_expr *, gfc_expr *); |
@@ -64,6 +65,7 @@ gfc_try gfc_check_fn_c (gfc_expr *); |
gfc_try gfc_check_fn_d (gfc_expr *); |
gfc_try gfc_check_fn_r (gfc_expr *); |
gfc_try gfc_check_fn_rc (gfc_expr *); |
+gfc_try gfc_check_fn_rc2008 (gfc_expr *); |
gfc_try gfc_check_fnum (gfc_expr *); |
gfc_try gfc_check_hostnm (gfc_expr *); |
gfc_try gfc_check_huge (gfc_expr *); |
@@ -71,9 +73,7 @@ gfc_try gfc_check_hypot (gfc_expr *, gfc_expr *); |
gfc_try gfc_check_i (gfc_expr *); |
gfc_try gfc_check_iand (gfc_expr *, gfc_expr *); |
gfc_try gfc_check_and (gfc_expr *, gfc_expr *); |
-gfc_try gfc_check_ibclr (gfc_expr *, gfc_expr *); |
gfc_try gfc_check_ibits (gfc_expr *, gfc_expr *, gfc_expr *); |
-gfc_try gfc_check_ibset (gfc_expr *, gfc_expr *); |
gfc_try gfc_check_ichar_iachar (gfc_expr *, gfc_expr *); |
gfc_try gfc_check_idnint (gfc_expr *); |
gfc_try gfc_check_ieor (gfc_expr *, gfc_expr *); |
@@ -117,6 +117,7 @@ gfc_try gfc_check_real (gfc_expr *, gfc_expr *); |
gfc_try gfc_check_rename (gfc_expr *, gfc_expr *); |
gfc_try gfc_check_repeat (gfc_expr *, gfc_expr *); |
gfc_try gfc_check_reshape (gfc_expr *, gfc_expr *, gfc_expr *, gfc_expr *); |
+gfc_try gfc_check_same_type_as (gfc_expr *, gfc_expr *); |
gfc_try gfc_check_scale (gfc_expr *, gfc_expr *); |
gfc_try gfc_check_scan (gfc_expr *, gfc_expr *, gfc_expr *, gfc_expr *); |
gfc_try gfc_check_second_sub (gfc_expr *); |
@@ -200,10 +201,12 @@ gfc_expr *gfc_simplify_adjustl (gfc_expr *); |
gfc_expr *gfc_simplify_adjustr (gfc_expr *); |
gfc_expr *gfc_simplify_aimag (gfc_expr *); |
gfc_expr *gfc_simplify_aint (gfc_expr *, gfc_expr *); |
+gfc_expr *gfc_simplify_all (gfc_expr *, gfc_expr *); |
gfc_expr *gfc_simplify_dint (gfc_expr *); |
gfc_expr *gfc_simplify_anint (gfc_expr *, gfc_expr *); |
gfc_expr *gfc_simplify_dnint (gfc_expr *); |
gfc_expr *gfc_simplify_and (gfc_expr *, gfc_expr *); |
+gfc_expr *gfc_simplify_any (gfc_expr *, gfc_expr *); |
gfc_expr *gfc_simplify_asin (gfc_expr *); |
gfc_expr *gfc_simplify_asinh (gfc_expr *); |
gfc_expr *gfc_simplify_atan (gfc_expr *); |
@@ -224,14 +227,17 @@ gfc_expr *gfc_simplify_complex (gfc_expr *, gfc_expr *); |
gfc_expr *gfc_simplify_conjg (gfc_expr *); |
gfc_expr *gfc_simplify_cos (gfc_expr *); |
gfc_expr *gfc_simplify_cosh (gfc_expr *); |
+gfc_expr *gfc_simplify_count (gfc_expr *, gfc_expr *, gfc_expr *); |
gfc_expr *gfc_simplify_dcmplx (gfc_expr *, gfc_expr *); |
gfc_expr *gfc_simplify_dble (gfc_expr *); |
gfc_expr *gfc_simplify_digits (gfc_expr *); |
gfc_expr *gfc_simplify_dim (gfc_expr *, gfc_expr *); |
gfc_expr *gfc_simplify_dprod (gfc_expr *, gfc_expr *); |
+gfc_expr *gfc_simplify_dot_product (gfc_expr *, gfc_expr *); |
gfc_expr *gfc_simplify_epsilon (gfc_expr *); |
gfc_expr *gfc_simplify_erf (gfc_expr *); |
gfc_expr *gfc_simplify_erfc (gfc_expr *); |
+gfc_expr *gfc_simplify_erfc_scaled (gfc_expr *); |
gfc_expr *gfc_simplify_exp (gfc_expr *); |
gfc_expr *gfc_simplify_exponent (gfc_expr *); |
gfc_expr *gfc_simplify_float (gfc_expr *); |
@@ -255,6 +261,9 @@ gfc_expr *gfc_simplify_long (gfc_expr *); |
gfc_expr *gfc_simplify_ifix (gfc_expr *); |
gfc_expr *gfc_simplify_idint (gfc_expr *); |
gfc_expr *gfc_simplify_ior (gfc_expr *, gfc_expr *); |
+gfc_expr *gfc_simplify_is_iostat_end (gfc_expr *); |
+gfc_expr *gfc_simplify_is_iostat_eor (gfc_expr *); |
+gfc_expr *gfc_simplify_isnan (gfc_expr *); |
gfc_expr *gfc_simplify_ishft (gfc_expr *, gfc_expr *); |
gfc_expr *gfc_simplify_ishftc (gfc_expr *, gfc_expr *, gfc_expr *); |
gfc_expr *gfc_simplify_kind (gfc_expr *); |
@@ -270,6 +279,7 @@ gfc_expr *gfc_simplify_llt (gfc_expr *, gfc_expr *); |
gfc_expr *gfc_simplify_log (gfc_expr *); |
gfc_expr *gfc_simplify_log10 (gfc_expr *); |
gfc_expr *gfc_simplify_logical (gfc_expr *, gfc_expr *); |
+gfc_expr *gfc_simplify_matmul (gfc_expr *, gfc_expr *); |
gfc_expr *gfc_simplify_merge (gfc_expr *, gfc_expr *, gfc_expr *); |
gfc_expr *gfc_simplify_min (gfc_expr *); |
gfc_expr *gfc_simplify_minval (gfc_expr *, gfc_expr*, gfc_expr*); |
@@ -288,7 +298,9 @@ gfc_expr *gfc_simplify_null (gfc_expr *); |
gfc_expr *gfc_simplify_idnint (gfc_expr *); |
gfc_expr *gfc_simplify_not (gfc_expr *); |
gfc_expr *gfc_simplify_or (gfc_expr *, gfc_expr *); |
+gfc_expr *gfc_simplify_pack (gfc_expr *, gfc_expr *, gfc_expr *); |
gfc_expr *gfc_simplify_precision (gfc_expr *); |
+gfc_expr *gfc_simplify_product (gfc_expr *, gfc_expr *, gfc_expr *); |
gfc_expr *gfc_simplify_radix (gfc_expr *); |
gfc_expr *gfc_simplify_range (gfc_expr *); |
gfc_expr *gfc_simplify_real (gfc_expr *, gfc_expr *); |
@@ -310,14 +322,18 @@ gfc_expr *gfc_simplify_sinh (gfc_expr *); |
gfc_expr *gfc_simplify_size (gfc_expr *, gfc_expr *, gfc_expr *); |
gfc_expr *gfc_simplify_sngl (gfc_expr *); |
gfc_expr *gfc_simplify_spacing (gfc_expr *); |
+gfc_expr *gfc_simplify_spread (gfc_expr *, gfc_expr *, gfc_expr *); |
gfc_expr *gfc_simplify_sqrt (gfc_expr *); |
+gfc_expr *gfc_simplify_sum (gfc_expr *, gfc_expr *, gfc_expr *); |
gfc_expr *gfc_simplify_tan (gfc_expr *); |
gfc_expr *gfc_simplify_tanh (gfc_expr *); |
gfc_expr *gfc_simplify_tiny (gfc_expr *); |
gfc_expr *gfc_simplify_trailz (gfc_expr *); |
gfc_expr *gfc_simplify_transfer (gfc_expr *, gfc_expr *, gfc_expr *); |
+gfc_expr *gfc_simplify_transpose (gfc_expr *); |
gfc_expr *gfc_simplify_trim (gfc_expr *); |
gfc_expr *gfc_simplify_ubound (gfc_expr *, gfc_expr *, gfc_expr *); |
+gfc_expr *gfc_simplify_unpack (gfc_expr *, gfc_expr *, gfc_expr *); |
gfc_expr *gfc_simplify_verify (gfc_expr *, gfc_expr *, gfc_expr *, gfc_expr *); |
gfc_expr *gfc_simplify_xor (gfc_expr *, gfc_expr *); |
@@ -372,6 +388,7 @@ void gfc_resolve_eoshift (gfc_expr *, gfc_expr *, gfc_expr *, gfc_expr *, |
void gfc_resolve_etime_sub (gfc_code *); |
void gfc_resolve_exp (gfc_expr *, gfc_expr *); |
void gfc_resolve_exponent (gfc_expr *, gfc_expr *); |
+void gfc_resolve_extends_type_of (gfc_expr *, gfc_expr *, gfc_expr *); |
void gfc_resolve_fdate (gfc_expr *); |
void gfc_resolve_floor (gfc_expr *, gfc_expr *, gfc_expr *); |
void gfc_resolve_fnum (gfc_expr *, gfc_expr *); |