[fortran]program test
implicit none
integer :: date_values(8)
call date_and_time(values=date_values)
print '(a,8(i0,x))', 'date values = ', date_values
end program test[/fortran]
[fortran]program test
implicit none
character(len=4), parameter :: var_name = 'TERM'
character(len=11) :: var_value
integer :: ierr
call get_environment_variable(var_name,value=var_value,status=ierr)
if (ierr .ne. 0) then
print *, 'error when getting env var: ', ierr
endif
print '(4a)', 'environment variable ', var_name, ' = ', trim(adjustl(var_value))
end program test[/fortran]
Link Copied
[bash]$ ifort --version ifort (IFORT) 12.0.3 20110309 Copyright (C) 1985-2011 Intel Corporation. All rights reserved. $ ifort -g test_date.f90 -o test_date $ inspxe-cl -version Intel Inspector XE 2011 Update 1 (build 131372) Command Line tool Copyright (C) 2009-2010 Intel Corporation. All rights reserved. $ inspxe-cl -collect mi3 -- ./test_date Used suppression file(s): [] date values = 2011 4 25 -240 9 47 22 60 1 new problem(s) found 1 Invalid memory access problem(s) detected $ ifort -g test_env.f90 -o test_env $ inspxe-cl -collect mi3 -- ./test_env Used suppression file(s): [] environment variable TERM = xterm 2 new problem(s) found 1 Invalid memory access problem(s) detected 1 Invalid partial memory access problem(s) detected [/bash]
For more complete information about compiler optimizations, see our Optimization Notice.