[Bug fortran/77400] fortran compfails on random_seed(PUT) if seed size is less than 33
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=77400 kargl at gcc dot gnu.org changed: What|Removed |Added Status|WAITING |RESOLVED Resolution|--- |INVALID --- Comment #3 from kargl at gcc dot gnu.org --- (In reply to Sergey from comment #2) > Indeed, I missed that it was dynamically linked by default and system > bundled ( older ) libfortran was used. Thus it's a problem in the original > program which has hard-coded seed(12) as it had been a constant for years. > > So it's not a bug and may be closed as such. Thank you. thanks for getting back with confirmation of an old library being picked up during linking.
[Bug fortran/77400] fortran compfails on random_seed(PUT) if seed size is less than 33
https://gcc.gnu.org/bugzilla/show_bug.cgi?id=77400 --- Comment #2 from Sergey --- Indeed, I missed that it was dynamically linked by default and system bundled ( older ) libfortran was used. Thus it's a problem in the original program which has hard-coded seed(12) as it had been a constant for years. So it's not a bug and may be closed as such. Thank you.
[Bug fortran/77400] fortran compfails on random_seed(PUT) if seed size is less than 33
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
