Searched refs:image_distinct (Results 1 – 5 of 5) sorted by relevance
| /netbsd-src/external/gpl3/gcc.old/dist/libgfortran/intrinsics/ |
| H A D | random_init.f90 | 69 logical, value, intent(in) :: image_distinct
85 if (image_distinct) seed = seed + hidden
|
| /netbsd-src/external/gpl3/gcc/dist/libgfortran/intrinsics/ |
| H A D | random_init.f90 | 48 logical, value, intent(in) :: image_distinct
74 if (image_distinct) error stop image_num + 1
|
| /netbsd-src/external/gpl3/gcc/dist/gcc/fortran/ |
| H A D | check.cc | 6591 gfc_check_random_init (gfc_expr *repeatable, gfc_expr *image_distinct) in gfc_check_random_init() argument
6599 if (!type_check (image_distinct, 1, BT_LOGICAL)) in gfc_check_random_init()
6602 if (!scalar_check (image_distinct, 1)) in gfc_check_random_init()
|
| /netbsd-src/external/gpl3/gcc.old/dist/gcc/fortran/ |
| H A D | check.c | 6565 gfc_check_random_init (gfc_expr *repeatable, gfc_expr *image_distinct) in gfc_check_random_init() argument
6573 if (!type_check (image_distinct, 1, BT_LOGICAL)) in gfc_check_random_init()
6576 if (!scalar_check (image_distinct, 1)) in gfc_check_random_init()
|
| /netbsd-src/external/gpl3/gcc/dist/libgfortran/caf/ |
| H A D | single.c | 3142 void _gfortran_caf_random_init (bool repeatable, bool image_distinct) in _gfortran_caf_random_init() argument
3146 _gfortran_random_init (repeatable, image_distinct, 1); in _gfortran_caf_random_init()
|