https://gcc.gnu.org/bugzilla/show_bug.cgi?id=62049
--- Comment #2 from Paul Martin <wxcvbn789456123-nw6wda at yahoo dot fr> ---
Below is the output of the program given in Comment #1 , using the same version
of gfortran and the same operating system (32 bits) as in Comment #0 :
bash 2 : gfortran --version | head -3
GNU Fortran (GCC) 4.10.0 20140629 (experimental) [trunk revision 212119]
Copyright (C) 2014 Free Software Foundation, Inc.
bash 3 : cat t.f90
PROGRAM clock
IMPLICIT NONE
INTEGER(kind=4) :: crate4
INTEGER(kind=8) :: crate8
CALL system_clock (count_rate = crate4)
WRITE(*,*) crate4
CALL system_clock (count_rate = crate8)
WRITE(*,*) crate8
END PROGRAM clock
bash 4 : gfortran -Wall t.f90 -fdump-parse-tree
Namespace: A-Z: (UNKNOWN 0)
procedure name = clock
symtree: 'clock' || symbol: 'clock'
type spec : (UNKNOWN 0)
attributes: (PROGRAM PUBLIC SUBROUTINE)
symtree: 'crate4' || symbol: 'crate4'
type spec : (INTEGER 4)
attributes: (VARIABLE )
symtree: 'crate8' || symbol: 'crate8'
type spec : (INTEGER 8)
attributes: (VARIABLE )
symtree: 'system_clock'|| symbol: 'system_clock'
type spec : (UNKNOWN 0)
attributes: (PROCEDURE SUBROUTINE)
code:
CALL _gfortran_system_clock_8 (((arg not-present)) (count_rate =
clock:crate4) ((arg not-present)))
WRITE UNIT=6 FMT=-1
TRANSFER clock:crate4
DT_END
CALL _gfortran_system_clock_8 (((arg not-present)) (count_rate =
clock:crate8) ((arg not-present)))
WRITE UNIT=6 FMT=-1
TRANSFER clock:crate8
DT_END
------------------------------------------
bash 5 : ./a.exe
-1128237296
3166730000
