URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [date_time_1.f90] - Diff between revs 303 and 384

Rev 303	Rev 384
`! Check the DATE_AND_TIME intrinsic.`	`! Check the DATE_AND_TIME intrinsic.`
`! Call teh intrinsic with a variety of arguments, but does not check the`	`! Call teh intrinsic with a variety of arguments, but does not check the`
`! returned values.`	`! returned values.`
`CHARACTER(8) :: d, d1`	`CHARACTER(8) :: d, d1`
`CHARACTER(10) :: t, t1`	`CHARACTER(10) :: t, t1`
`CHARACTER(5) :: z, z1`	`CHARACTER(5) :: z, z1`
`INTEGER :: v(8), v1(8)`	`INTEGER :: v(8), v1(8)`

`CALL DATE_AND_TIME`	`CALL DATE_AND_TIME`

`CALL DATE_AND_TIME(DATE=d)`	`CALL DATE_AND_TIME(DATE=d)`
`CALL DATE_AND_TIME(TIME=t)`	`CALL DATE_AND_TIME(TIME=t)`
`CALL DATE_AND_TIME(ZONE=z)`	`CALL DATE_AND_TIME(ZONE=z)`

`CALL DATE_AND_TIME(VALUES=v)`	`CALL DATE_AND_TIME(VALUES=v)`

`CALL DATE_AND_TIME(DATE=d, TIME=t)`	`CALL DATE_AND_TIME(DATE=d, TIME=t)`
`CALL DATE_AND_TIME(DATE=d, VALUES=v)`	`CALL DATE_AND_TIME(DATE=d, VALUES=v)`
`CALL DATE_AND_TIME(TIME=t, ZONE=z)`	`CALL DATE_AND_TIME(TIME=t, ZONE=z)`

`CALL DATE_AND_TIME(DATE=d, 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(TIME=t, ZONE=z, VALUES=v)`

`CALL DATE_AND_TIME(DATE=d, TIME=t, ZONE=z, VALUES=v)`	`CALL DATE_AND_TIME(DATE=d, TIME=t, ZONE=z, VALUES=v)`

`END`	`END`