5024a6ec97
Support the predefined macro __TIMESTAMP__ as interpreted by GCC. It expands to a character literal with the time of last modification of the top-level source file in asctime(3) format, e.g. "Tue Jul 4 10:18:05 1776".
13 lines
603 B
Fortran
13 lines
603 B
Fortran
!RUN: %flang_fc1 -fdebug-unparse %s 2>&1 | FileCheck %s
|
|
!CHECK: INTEGER, PARAMETER :: tslen = 24_4
|
|
!CHECK: LOGICAL, PARAMETER :: tsspaces = .true._4
|
|
!CHECK: LOGICAL, PARAMETER :: tscolons = .true._4
|
|
|
|
integer, parameter :: tsLen = len(__TIMESTAMP__)
|
|
character(tsLen), parameter :: ts = __TIMESTAMP__
|
|
integer, parameter :: spaces(*) = [4, 8, 11, 20]
|
|
integer, parameter :: colons(*) = [14, 17]
|
|
logical, parameter :: tsSpaces = all([character(1)::(ts(spaces(j):spaces(j)),j=1,size(spaces))] == ' ')
|
|
logical, parameter :: tsColons = all([character(1)::(ts(colons(j):colons(j)),j=1,size(colons))] == ':')
|
|
end
|