Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/random_seed_1.f90 @ 152:2b5abeee2509
update gcc11
author | anatofuz |
---|---|
date | Mon, 25 May 2020 07:50:57 +0900 |
parents | 1830386684a0 |
children |
line wrap: on
line source
! { dg-do compile } ! Emit a diagnostic for too small PUT array at compile time ! See PR fortran/37159 ! Updated to check for arrays of unexpected size, ! this also works for -fdefault-integer-8. ! PROGRAM random_seed_1 IMPLICIT NONE ! Should match sizeof(master_state) in ! libgfortran/intrinsics/random.c INTEGER, PARAMETER :: nbytes = 32 ! '+1' to avoid out-of-bounds warnings INTEGER, PARAMETER :: n = nbytes / KIND(n) + 1 INTEGER, DIMENSION(n) :: seed ! Get seed, array too small CALL RANDOM_SEED(GET=seed(1:(n-2))) ! { dg-error "too small" } ! Get seed, array bigger than necessary CALL RANDOM_SEED(GET=seed(1:n)) ! Get seed, proper size CALL RANDOM_SEED(GET=seed(1:(n-1))) ! Put too few bytes CALL RANDOM_SEED(PUT=seed(1:(n-2))) ! { dg-error "too small" } ! Put too many bytes CALL RANDOM_SEED(PUT=seed(1:n)) ! Put the right amount of bytes CALL RANDOM_SEED(PUT=seed(1:(n-1))) END PROGRAM random_seed_1