Mercurial > hg > CbC > CbC_gcc
view gcc/testsuite/gfortran.dg/random_seed_1.f90 @ 145:1830386684a0
gcc-9.2.0
author | anatofuz |
---|---|
date | Thu, 13 Feb 2020 11:34:05 +0900 |
parents | 04ced10e8804 |
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