/* 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)