OpenCores
URL https://opencores.org/ocsvn/openrisc_me/openrisc_me/trunk

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [date_time_1.f90] - Blame information for rev 307

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 303 jeremybenn
! Check the DATE_AND_TIME intrinsic.
2
! Call teh intrinsic with a variety of arguments, but does not check the
3
! returned values.
4
CHARACTER(8) :: d, d1
5
CHARACTER(10) :: t, t1
6
CHARACTER(5) :: z, z1
7
INTEGER :: v(8), v1(8)
8
 
9
CALL DATE_AND_TIME
10
 
11
CALL DATE_AND_TIME(DATE=d)
12
CALL DATE_AND_TIME(TIME=t)
13
CALL DATE_AND_TIME(ZONE=z)
14
 
15
CALL DATE_AND_TIME(VALUES=v)
16
 
17
CALL DATE_AND_TIME(DATE=d, TIME=t)
18
CALL DATE_AND_TIME(DATE=d, VALUES=v)
19
CALL DATE_AND_TIME(TIME=t, ZONE=z)
20
 
21
CALL DATE_AND_TIME(DATE=d, TIME=t, ZONE=z)
22
CALL DATE_AND_TIME(TIME=t, ZONE=z, VALUES=v)
23
 
24
CALL DATE_AND_TIME(DATE=d, TIME=t, ZONE=z, VALUES=v)
25
 
26
END

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.