/* First check that the intrinsic belongs to the selected standard.
If not, don't add it to the symbol list. */
- if (!(gfc_option.allow_std & standard))
+ if (!(gfc_option.allow_std & standard)
+ && gfc_option.flag_all_intrinsics == 0)
return;
switch (sizing)
{
gfc_intrinsic_sym *g;
- if (!(gfc_option.allow_std & standard))
+ if (!(gfc_option.allow_std & standard)
+ && gfc_option.flag_all_intrinsics == 0)
return;
if (sizing != SZ_NOTHING)
/* First check that the intrinsic belongs to the selected standard.
If not, don't add it to the symbol list. */
- if (!(gfc_option.allow_std & standard))
+ if (!(gfc_option.allow_std & standard)
+ && gfc_option.flag_all_intrinsics == 0)
return;
switch (sizing)
make_generic ("log10", GFC_ISYM_LOG10, GFC_STD_F77);
- add_sym_2 ("logical", 0, 1, BT_LOGICAL, dl, GFC_STD_F95,
+ add_sym_2 ("logical", 1, 1, BT_LOGICAL, dl, GFC_STD_F95,
gfc_check_logical, gfc_simplify_logical, gfc_resolve_logical,
l, BT_LOGICAL, dl, REQUIRED, kind, BT_INTEGER, di, OPTIONAL);
a, BT_UNKNOWN, dr, REQUIRED);
add_sym_1 ("float", 1, 0, BT_REAL, dr, GFC_STD_F77,
- NULL, gfc_simplify_float, NULL,
+ gfc_check_i, gfc_simplify_float, NULL,
a, BT_INTEGER, di, REQUIRED);
add_sym_1 ("sngl", 1, 0, BT_REAL, dr, GFC_STD_F77,
new->symtree->n.sym->attr.elemental = 1;
new->symtree->n.sym->attr.pure = 1;
new->symtree->n.sym->attr.referenced = 1;
+ gfc_intrinsic_symbol(new->symtree->n.sym);
gfc_commit_symbol (new->symtree->n.sym);
*expr = *new;