gfortran compiles the following code subroutine reset_seed(iseed) implicit none integer, intent(in) :: iseed call random_seed(iseed) end subroutine reset_seed
SIZE (optional) shall be scalar and of type default integer. It is an INTENT (OUT) argument. It is assigned the number N of integers that the processor uses to hold the value of the seed. The problem is in check_variable() in check.c. The first if-statement prevents the second one from being reached. -- Summary: SIZE in RANDOM_SEED is an intent(out) variable. Product: gcc Version: 4.6.0 Status: UNCONFIRMED Severity: normal Priority: P3 Component: fortran AssignedTo: kargl at gcc dot gnu dot org ReportedBy: kargl at gcc dot gnu dot org http://gcc.gnu.org/bugzilla/show_bug.cgi?id=44595