[Bug fortran/77400] fortran compfails on random_seed(PUT) if seed size is less than 33

[kargl at gcc dot gnu.org]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=77400

kargl at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
           Priority|P3                          |P4
             Status|UNCONFIRMED                 |WAITING
   Last reconfirmed|                            |2016-08-29
                 CC|                            |kargl at gcc dot gnu.org
     Ever confirmed|0                           |1
           Severity|normal                      |minor

--- Comment #1 from kargl at gcc dot gnu.org ---
(In reply to Sergey from comment #0)
> Starting from 12th Aug 2016, fortran compfails on random_seed(PUT=seed) as
> follows if seed size is less than 33 (with expected size 12 which had been
> working so far as long as in release branches) :
> 
> sh-4.3$ gfortran ttt2.f90 -o ttt2
> ttt2.f90:14:30: 
>  
>          call random_seed (PUT=seed)
>                               1 
> Error: Size of 'put' argument of 'random_seed' intrinsic at (1) too small
> (24/33)

Yes, the internals of random_number/random_seed have changed.

> It's interesting that random_seed(SIZE=.. ) still report that expected seed
> size is 12, not 33. 

This suggests that you are linking against the wrong libgfortran.

% gfortran6 -o z a.f90 && ./z
12
% gfortran7 -o z a.f90 && ./z
33