URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [date_time_1.f90] - Blame information for rev 774

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


! Check the DATE_AND_TIME intrinsic.
! Call teh intrinsic with a variety of arguments, but does not check the
! returned values.
CHARACTER(8) :: d, d1
CHARACTER(10) :: t, t1
CHARACTER(5) :: z, z1
INTEGER :: v(8), v1(8)
 
CALL DATE_AND_TIME
 
CALL DATE_AND_TIME(DATE=d)
CALL DATE_AND_TIME(TIME=t)
CALL DATE_AND_TIME(ZONE=z)
 
CALL DATE_AND_TIME(VALUES=v)
 
CALL DATE_AND_TIME(DATE=d, TIME=t)
CALL DATE_AND_TIME(DATE=d, VALUES=v)
CALL DATE_AND_TIME(TIME=t, ZONE=z)
 
CALL DATE_AND_TIME(DATE=d, TIME=t, ZONE=z)
CALL DATE_AND_TIME(TIME=t, ZONE=z, VALUES=v)
 
CALL DATE_AND_TIME(DATE=d, TIME=t, ZONE=z, VALUES=v)
 
END

Line No.	Rev	Author	Line
1	695	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`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [date_time_1.f90] - Blame information for rev 774