[LLVM] Fix Maintainers.md formatting (NFC)
[llvm-project.git] / flang / test / Preprocessing / timestamp.F90
blobb8f431c3022b8dc73fd4804fc005b24acce690b3
1 !RUN: %flang_fc1 -fdebug-unparse %s 2>&1 | FileCheck %s
2 !CHECK: INTEGER, PARAMETER :: tslen = 24_4
3 !CHECK: LOGICAL, PARAMETER :: tsspaces = .true._4
4 !CHECK: LOGICAL, PARAMETER :: tscolons = .true._4
6 integer, parameter :: tsLen = len(__TIMESTAMP__)
7 character(tsLen), parameter :: ts = __TIMESTAMP__
8 integer, parameter :: spaces(*) = [4, 8, 11, 20]
9 integer, parameter :: colons(*) = [14, 17]
10 logical, parameter :: tsSpaces = all([character(1)::(ts(spaces(j):spaces(j)),j=1,size(spaces))] == ' ')
11 logical, parameter :: tsColons = all([character(1)::(ts(colons(j):colons(j)),j=1,size(colons))] == ':')
12 end