472 scalar_check (gfc_expr *e, int n)  in scalar_check()  function
646   if (!scalar_check (k, n))  in kind_check()
1062   if (!scalar_check (dim, n))  in dim_check()
1325       || !scalar_check (name, 0))  in gfc_check_access_func()
1331       || !scalar_check (mode, 1))  in gfc_check_access_func()
1548   if (!scalar_check (atom, atom_no) || !scalar_check (value, val_no))  in gfc_check_atomic()
1581       if (!scalar_check (stat, stat_no))  in gfc_check_atomic()
1654   if (!type_check (image, 0, BT_INTEGER) || !scalar_check (image, 0)  in gfc_check_image_status()
1684       if (!type_check (kind, 1, BT_INTEGER) || !scalar_check (kind, 1)  in gfc_check_failed_or_stopped_images()
1730   if (!scalar_check (old, 1) || !scalar_check (compare, 2))  in gfc_check_atomic_cas()
1768   if (!scalar_check (event, 0))  in gfc_check_event_query()
1796       if (!scalar_check (stat, 2))  in gfc_check_event_query()
1830   if (!scalar_check (old, 2))  in gfc_check_atomic_fetch_op()
1884   if (!scalar_check (n1, 0))  in gfc_check_bessel_n2()
1891   if (!scalar_check (n2, 1))  in gfc_check_bessel_n2()
1898   if (!scalar_check (x, 2))  in gfc_check_bessel_n2()
2006   if (!scalar_check (status, 1))  in gfc_check_chdir_sub()
2049   if (!scalar_check (status, 2))  in gfc_check_chmod_sub()
2151       if (!scalar_check (image_idx, co_reduce ? 2 : 1))  in check_co_collective()
2159       if (!scalar_check (stat, co_reduce ? 3 : 2))  in check_co_collective()
2175       if (!scalar_check (errmsg, co_reduce ? 4 : 3))  in check_co_collective()
2442   if (!scalar_check (x, 0))  in gfc_check_complex()
2447   if (!scalar_check (y, 1))  in gfc_check_complex()
2491       if (!scalar_check (shift, 1))  in gfc_check_cshift()
2540   if (!scalar_check (time, 0))  in gfc_check_ctime()
2768       if (!scalar_check (shift, 1))  in gfc_check_eoshift()
2827 	  if (!scalar_check (boundary, 2))  in gfc_check_eoshift()
2984   if (!scalar_check (unit, 0))  in gfc_check_fnum()
3304   if (!scalar_check (pid, 0))  in gfc_check_kill()
3310   if (!scalar_check (sig, 1))  in gfc_check_kill()
3323   if (!scalar_check (pid, 0))  in gfc_check_kill_sub()
3329   if (!scalar_check (sig, 1))  in gfc_check_kill_sub()
3337       if (!scalar_check (status, 2))  in gfc_check_kill_sub()
3510   if (!scalar_check (status, 2))  in gfc_check_link_sub()
3560   if (!scalar_check (status, 2))  in gfc_check_symlnk_sub()
3763   if (!scalar_check (size, 0))  in gfc_check_malloc()
3875       if (!type_check (b, 4, BT_LOGICAL) || !scalar_check (b,4))  in gfc_check_minloc_maxloc()
3930   if (!intrinsic_type_check (v, 1) || !scalar_check (v,1))  in gfc_check_findloc()
3956       if (!type_check (b, 5, BT_LOGICAL) || !scalar_check (b,4))  in gfc_check_findloc()
4638   if (!scalar_check (status, 2))  in gfc_check_rename_sub()
4651   if (!scalar_check (x, 0))  in gfc_check_repeat()
4657   if (!scalar_check (y, 1))  in gfc_check_repeat()
4929   if (!scalar_check (r, 0))  in gfc_check_secnds()
4945   if (!scalar_check (name, 0))  in gfc_check_selected_char_kind()
4958   if (!scalar_check (r, 0))  in gfc_check_selected_int_kind()
4979       if (!scalar_check (p, 0))  in gfc_check_selected_real_kind()
4988       if (!scalar_check (r, 1))  in gfc_check_selected_real_kind()
4997       if (!scalar_check (radix, 1))  in gfc_check_selected_real_kind()
5323   if (!scalar_check (c_ptr_1, 0))  in gfc_check_c_associated()
5339   if (c_ptr_2 && !scalar_check (c_ptr_2, 1))  in gfc_check_c_associated()
5361   if (!scalar_check (cptr, 0))  in gfc_check_c_f_pointer()
5450   if (!scalar_check (cptr, 0))  in gfc_check_c_f_procpointer()
5595   if (!scalar_check (seconds, 0))  in gfc_check_sleep_sub()
5652   if (!scalar_check (ncopies, 2))  in gfc_check_spread()
5681   if (!scalar_check (unit, 0))  in gfc_check_fgetputc_sub()
5699       || !scalar_check (status, 2)  in gfc_check_fgetputc_sub()
5732       || !scalar_check (status, 1)  in gfc_check_fgetput_sub()
5753   if (!scalar_check (unit, 0))  in gfc_check_fseek_sub()
5759   if (!scalar_check (offset, 1))  in gfc_check_fseek_sub()
5765   if (!scalar_check (whence, 2))  in gfc_check_fseek_sub()
5777   if (!scalar_check (status, 3))  in gfc_check_fseek_sub()
5791   if (!scalar_check (unit, 0))  in gfc_check_fstat()
5811   if (!scalar_check (unit, 0))  in gfc_check_fstat_sub()
5828   if (!scalar_check (status, 2))  in gfc_check_fstat_sub()
5841   if (!scalar_check (unit, 0))  in gfc_check_ftell()
5854   if (!scalar_check (unit, 0))  in gfc_check_ftell_sub()
5860   if (!scalar_check (offset, 1))  in gfc_check_ftell_sub()
5908   if (!scalar_check (status, 2))  in gfc_check_stat_sub()
5972       if (!scalar_check (distance, 0))  in gfc_check_num_images()
5985       if (!scalar_check (failed, 1))  in gfc_check_num_images()
6071       if (!scalar_check (distance, 2))  in gfc_check_this_image()
6227       if (!scalar_check (size, 2))  in gfc_check_transfer()
6427   if (!scalar_check (x, 0))  in gfc_check_trim()
6437   if (!scalar_check (unit, 0))  in gfc_check_ttynam()
6452   if (!scalar_check (time, 0))  in gfc_check_cpu_time()
6475       if (!scalar_check (date, 0))  in gfc_check_date_and_time()
6487       if (!scalar_check (time, 1))  in gfc_check_date_and_time()
6499       if (!scalar_check (zone, 2))  in gfc_check_date_and_time()
6570   if (!scalar_check (repeatable, 0))  in gfc_check_random_init()
6576   if (!scalar_check (image_distinct, 1))  in gfc_check_random_init()
6613       if (!scalar_check (size, 0))  in gfc_check_random_seed()
6728   if (!scalar_check (time, 0))  in gfc_check_second_sub()
6752       if (!scalar_check (count, 0))  in gfc_check_system_clock()
6770       if (!scalar_check (count_rate, 1))  in gfc_check_system_clock()
6798       if (!scalar_check (count_max, 2))  in gfc_check_system_clock()
6824   if (!scalar_check (x, 0))  in gfc_check_irand()
6840   if (!scalar_check (seconds, 0))  in gfc_check_alarm_sub()
6847   if (handler->ts.type == BT_INTEGER && !scalar_check (handler, 1))  in gfc_check_alarm_sub()
6853   if (!scalar_check (status, 2))  in gfc_check_alarm_sub()
6870   if (!scalar_check (x, 0))  in gfc_check_rand()
6886   if (!scalar_check (x, 0))  in gfc_check_srand()
6902   if (!scalar_check (time, 0))  in gfc_check_ctime_sub()
6956   if (!scalar_check (time, 1))  in gfc_check_dtime_etime_sub()
7004   if (!scalar_check (status, 1))  in gfc_check_getcwd_sub()
7059   if (!scalar_check (status, 0))  in gfc_check_exit()
7075   if (!scalar_check (unit, 0))  in gfc_check_flush()
7088   if (!scalar_check (i, 0))  in gfc_check_free()
7118   if (!scalar_check (status, 1))  in gfc_check_hostnm_sub()
7159   if (!scalar_check (time, 0))  in gfc_check_ltime_gmtime()
7184   if (!scalar_check (unit, 0))  in gfc_check_ttynam_sub()
7225   if (!scalar_check (unit, 0))  in gfc_check_isatty()
7260   if (!scalar_check (mask, 0))  in gfc_check_umask()
7273   if (!scalar_check (mask, 0))  in gfc_check_umask_sub()
7279   if (!scalar_check (old, 1))  in gfc_check_umask_sub()
7312   if (!scalar_check (status, 1))  in gfc_check_unlink_sub()
7325   if (!scalar_check (number, 0))  in gfc_check_signal()
7332   if (handler->ts.type == BT_INTEGER && !scalar_check (handler, 1))  in gfc_check_signal()
7342   if (!scalar_check (number, 0))  in gfc_check_signal_sub()
7349   if (handler->ts.type == BT_INTEGER && !scalar_check (handler, 1))  in gfc_check_signal_sub()
7357   if (!scalar_check (status, 2))  in gfc_check_signal_sub()
7372   if (!scalar_check (status, 1))  in gfc_check_system_sub()
7448   if (!scalar_check (i, 0))  in gfc_check_and()
7451   if (!scalar_check (j, 1))  in gfc_check_and()
7495   if (!scalar_check (kind, 1))  in gfc_check_storage_size()