Home
last modified time | relevance | path

Searched refs:BIRTH_DATE (Results 1 – 25 of 71) sorted by relevance

123

/dports/devel/aarch64-none-elf-gcc/gcc-8.4.0/gcc/testsuite/ada/acats/tests/cc/
H A Dcc3019c2.ada68 BIRTH_DATE : DATE := (MONTH => OCT, variable
79 BIRTH_DATE : DATE ; component
87 MYSELF : PERSON := (BIRTH_DATE => BIRTH_DATE,
91 FRIEND : PERSON := (BIRTH_DATE => DATE'(DEC, 27, 1949),
95 FATHER : PERSON := (BIRTH_DATE => DATE'(JUL, 5, 1925),
99 DAUGHTER : PERSON := (BIRTH_DATE => DATE'(DEC, 10, 1980),
190 IF (LEFT.BIRTH_DATE = RIGHT.BIRTH_DATE) AND
419 MONTH_TYPE'IMAGE (THIS_PERSON.BIRTH_DATE.MONTH)) ;
421 DAY_TYPE'IMAGE (THIS_PERSON.BIRTH_DATE.DAY)) ;
423 YEAR_TYPE'IMAGE (THIS_PERSON.BIRTH_DATE.YEAR)) ;
H A Dcc3007b.ada71 BIRTH_DATE : DATE := (MONTH => OCT, variable
92 THIRD_DATE : DATE_ACCESS := NEW DATE'(BIRTH_DATE);
169 POINTER.ALL := DATE'(BIRTH_DATE);
172 IF POINTER.ALL /= DATE'(BIRTH_DATE) THEN
/dports/lang/gcc6-aux/gcc-6-20180516/gcc/testsuite/ada/acats/tests/cc/
H A Dcc3019c2.ada68 BIRTH_DATE : DATE := (MONTH => OCT, variable
79 BIRTH_DATE : DATE ; component
87 MYSELF : PERSON := (BIRTH_DATE => BIRTH_DATE,
91 FRIEND : PERSON := (BIRTH_DATE => DATE'(DEC, 27, 1949),
95 FATHER : PERSON := (BIRTH_DATE => DATE'(JUL, 5, 1925),
99 DAUGHTER : PERSON := (BIRTH_DATE => DATE'(DEC, 10, 1980),
190 IF (LEFT.BIRTH_DATE = RIGHT.BIRTH_DATE) AND
419 MONTH_TYPE'IMAGE (THIS_PERSON.BIRTH_DATE.MONTH)) ;
421 DAY_TYPE'IMAGE (THIS_PERSON.BIRTH_DATE.DAY)) ;
423 YEAR_TYPE'IMAGE (THIS_PERSON.BIRTH_DATE.YEAR)) ;
H A Dcc3007b.ada71 BIRTH_DATE : DATE := (MONTH => OCT, variable
92 THIRD_DATE : DATE_ACCESS := NEW DATE'(BIRTH_DATE);
169 POINTER.ALL := DATE'(BIRTH_DATE);
172 IF POINTER.ALL /= DATE'(BIRTH_DATE) THEN
/dports/lang/gcc12-devel/gcc-12-20211205/gcc/testsuite/ada/acats/tests/cc/
H A Dcc3019c2.ada68 BIRTH_DATE : DATE := (MONTH => OCT, variable
79 BIRTH_DATE : DATE ; component
87 MYSELF : PERSON := (BIRTH_DATE => BIRTH_DATE,
91 FRIEND : PERSON := (BIRTH_DATE => DATE'(DEC, 27, 1949),
95 FATHER : PERSON := (BIRTH_DATE => DATE'(JUL, 5, 1925),
99 DAUGHTER : PERSON := (BIRTH_DATE => DATE'(DEC, 10, 1980),
190 IF (LEFT.BIRTH_DATE = RIGHT.BIRTH_DATE) AND
419 MONTH_TYPE'IMAGE (THIS_PERSON.BIRTH_DATE.MONTH)) ;
421 DAY_TYPE'IMAGE (THIS_PERSON.BIRTH_DATE.DAY)) ;
423 YEAR_TYPE'IMAGE (THIS_PERSON.BIRTH_DATE.YEAR)) ;
/dports/lang/gcc9/gcc-9.4.0/gcc/testsuite/ada/acats/tests/cc/
H A Dcc3019c2.ada68 BIRTH_DATE : DATE := (MONTH => OCT, variable
79 BIRTH_DATE : DATE ; component
87 MYSELF : PERSON := (BIRTH_DATE => BIRTH_DATE,
91 FRIEND : PERSON := (BIRTH_DATE => DATE'(DEC, 27, 1949),
95 FATHER : PERSON := (BIRTH_DATE => DATE'(JUL, 5, 1925),
99 DAUGHTER : PERSON := (BIRTH_DATE => DATE'(DEC, 10, 1980),
190 IF (LEFT.BIRTH_DATE = RIGHT.BIRTH_DATE) AND
419 MONTH_TYPE'IMAGE (THIS_PERSON.BIRTH_DATE.MONTH)) ;
421 DAY_TYPE'IMAGE (THIS_PERSON.BIRTH_DATE.DAY)) ;
423 YEAR_TYPE'IMAGE (THIS_PERSON.BIRTH_DATE.YEAR)) ;
/dports/devel/arm-none-eabi-gcc492/gcc-4.9.2/gcc/testsuite/ada/acats/tests/cc/
H A Dcc3019c2.ada68 BIRTH_DATE : DATE := (MONTH => OCT, variable
79 BIRTH_DATE : DATE ; component
87 MYSELF : PERSON := (BIRTH_DATE => BIRTH_DATE,
91 FRIEND : PERSON := (BIRTH_DATE => DATE'(DEC, 27, 1949),
95 FATHER : PERSON := (BIRTH_DATE => DATE'(JUL, 5, 1925),
99 DAUGHTER : PERSON := (BIRTH_DATE => DATE'(DEC, 10, 1980),
190 IF (LEFT.BIRTH_DATE = RIGHT.BIRTH_DATE) AND
419 MONTH_TYPE'IMAGE (THIS_PERSON.BIRTH_DATE.MONTH)) ;
421 DAY_TYPE'IMAGE (THIS_PERSON.BIRTH_DATE.DAY)) ;
423 YEAR_TYPE'IMAGE (THIS_PERSON.BIRTH_DATE.YEAR)) ;
/dports/devel/arm-none-eabi-gcc/gcc-8.4.0/gcc/testsuite/ada/acats/tests/cc/
H A Dcc3019c2.ada68 BIRTH_DATE : DATE := (MONTH => OCT, variable
79 BIRTH_DATE : DATE ; component
87 MYSELF : PERSON := (BIRTH_DATE => BIRTH_DATE,
91 FRIEND : PERSON := (BIRTH_DATE => DATE'(DEC, 27, 1949),
95 FATHER : PERSON := (BIRTH_DATE => DATE'(JUL, 5, 1925),
99 DAUGHTER : PERSON := (BIRTH_DATE => DATE'(DEC, 10, 1980),
190 IF (LEFT.BIRTH_DATE = RIGHT.BIRTH_DATE) AND
419 MONTH_TYPE'IMAGE (THIS_PERSON.BIRTH_DATE.MONTH)) ;
421 DAY_TYPE'IMAGE (THIS_PERSON.BIRTH_DATE.DAY)) ;
423 YEAR_TYPE'IMAGE (THIS_PERSON.BIRTH_DATE.YEAR)) ;
/dports/devel/riscv64-gcc/gcc-8.3.0/gcc/testsuite/ada/acats/tests/cc/
H A Dcc3019c2.ada68 BIRTH_DATE : DATE := (MONTH => OCT, variable
79 BIRTH_DATE : DATE ; component
87 MYSELF : PERSON := (BIRTH_DATE => BIRTH_DATE,
91 FRIEND : PERSON := (BIRTH_DATE => DATE'(DEC, 27, 1949),
95 FATHER : PERSON := (BIRTH_DATE => DATE'(JUL, 5, 1925),
99 DAUGHTER : PERSON := (BIRTH_DATE => DATE'(DEC, 10, 1980),
190 IF (LEFT.BIRTH_DATE = RIGHT.BIRTH_DATE) AND
419 MONTH_TYPE'IMAGE (THIS_PERSON.BIRTH_DATE.MONTH)) ;
421 DAY_TYPE'IMAGE (THIS_PERSON.BIRTH_DATE.DAY)) ;
423 YEAR_TYPE'IMAGE (THIS_PERSON.BIRTH_DATE.YEAR)) ;
/dports/devel/avr-gcc/gcc-10.2.0/gcc/testsuite/ada/acats/tests/cc/
H A Dcc3019c2.ada68 BIRTH_DATE : DATE := (MONTH => OCT, variable
79 BIRTH_DATE : DATE ; component
87 MYSELF : PERSON := (BIRTH_DATE => BIRTH_DATE,
91 FRIEND : PERSON := (BIRTH_DATE => DATE'(DEC, 27, 1949),
95 FATHER : PERSON := (BIRTH_DATE => DATE'(JUL, 5, 1925),
99 DAUGHTER : PERSON := (BIRTH_DATE => DATE'(DEC, 10, 1980),
190 IF (LEFT.BIRTH_DATE = RIGHT.BIRTH_DATE) AND
419 MONTH_TYPE'IMAGE (THIS_PERSON.BIRTH_DATE.MONTH)) ;
421 DAY_TYPE'IMAGE (THIS_PERSON.BIRTH_DATE.DAY)) ;
423 YEAR_TYPE'IMAGE (THIS_PERSON.BIRTH_DATE.YEAR)) ;
/dports/lang/gnat_util/gcc-6-20180516/gcc/testsuite/ada/acats/tests/cc/
H A Dcc3019c2.ada68 BIRTH_DATE : DATE := (MONTH => OCT, variable
79 BIRTH_DATE : DATE ; component
87 MYSELF : PERSON := (BIRTH_DATE => BIRTH_DATE,
91 FRIEND : PERSON := (BIRTH_DATE => DATE'(DEC, 27, 1949),
95 FATHER : PERSON := (BIRTH_DATE => DATE'(JUL, 5, 1925),
99 DAUGHTER : PERSON := (BIRTH_DATE => DATE'(DEC, 10, 1980),
190 IF (LEFT.BIRTH_DATE = RIGHT.BIRTH_DATE) AND
419 MONTH_TYPE'IMAGE (THIS_PERSON.BIRTH_DATE.MONTH)) ;
421 DAY_TYPE'IMAGE (THIS_PERSON.BIRTH_DATE.DAY)) ;
423 YEAR_TYPE'IMAGE (THIS_PERSON.BIRTH_DATE.YEAR)) ;
/dports/lang/gcc48/gcc-4.8.5/gcc/testsuite/ada/acats/tests/cc/
H A Dcc3019c2.ada68 BIRTH_DATE : DATE := (MONTH => OCT, variable
79 BIRTH_DATE : DATE ; component
87 MYSELF : PERSON := (BIRTH_DATE => BIRTH_DATE,
91 FRIEND : PERSON := (BIRTH_DATE => DATE'(DEC, 27, 1949),
95 FATHER : PERSON := (BIRTH_DATE => DATE'(JUL, 5, 1925),
99 DAUGHTER : PERSON := (BIRTH_DATE => DATE'(DEC, 10, 1980),
190 IF (LEFT.BIRTH_DATE = RIGHT.BIRTH_DATE) AND
419 MONTH_TYPE'IMAGE (THIS_PERSON.BIRTH_DATE.MONTH)) ;
421 DAY_TYPE'IMAGE (THIS_PERSON.BIRTH_DATE.DAY)) ;
423 YEAR_TYPE'IMAGE (THIS_PERSON.BIRTH_DATE.YEAR)) ;
/dports/lang/gcc10-devel/gcc-10-20211008/gcc/testsuite/ada/acats/tests/cc/
H A Dcc3019c2.ada68 BIRTH_DATE : DATE := (MONTH => OCT, variable
79 BIRTH_DATE : DATE ; component
87 MYSELF : PERSON := (BIRTH_DATE => BIRTH_DATE,
91 FRIEND : PERSON := (BIRTH_DATE => DATE'(DEC, 27, 1949),
95 FATHER : PERSON := (BIRTH_DATE => DATE'(JUL, 5, 1925),
99 DAUGHTER : PERSON := (BIRTH_DATE => DATE'(DEC, 10, 1980),
190 IF (LEFT.BIRTH_DATE = RIGHT.BIRTH_DATE) AND
419 MONTH_TYPE'IMAGE (THIS_PERSON.BIRTH_DATE.MONTH)) ;
421 DAY_TYPE'IMAGE (THIS_PERSON.BIRTH_DATE.DAY)) ;
423 YEAR_TYPE'IMAGE (THIS_PERSON.BIRTH_DATE.YEAR)) ;
/dports/devel/zpu-gcc/zpu-toolchain-1.0/toolchain/gcc/gcc/testsuite/ada/acats/tests/cc/
H A Dcc3019c2.ada68 BIRTH_DATE : DATE := (MONTH => OCT, variable
79 BIRTH_DATE : DATE ; component
87 MYSELF : PERSON := (BIRTH_DATE => BIRTH_DATE,
91 FRIEND : PERSON := (BIRTH_DATE => DATE'(DEC, 27, 1949),
95 FATHER : PERSON := (BIRTH_DATE => DATE'(JUL, 5, 1925),
99 DAUGHTER : PERSON := (BIRTH_DATE => DATE'(DEC, 10, 1980),
190 IF (LEFT.BIRTH_DATE = RIGHT.BIRTH_DATE) AND
419 MONTH_TYPE'IMAGE (THIS_PERSON.BIRTH_DATE.MONTH)) ;
421 DAY_TYPE'IMAGE (THIS_PERSON.BIRTH_DATE.DAY)) ;
423 YEAR_TYPE'IMAGE (THIS_PERSON.BIRTH_DATE.YEAR)) ;
/dports/devel/riscv64-none-elf-gcc/gcc-8.4.0/gcc/testsuite/ada/acats/tests/cc/
H A Dcc3019c2.ada68 BIRTH_DATE : DATE := (MONTH => OCT, variable
79 BIRTH_DATE : DATE ; component
87 MYSELF : PERSON := (BIRTH_DATE => BIRTH_DATE,
91 FRIEND : PERSON := (BIRTH_DATE => DATE'(DEC, 27, 1949),
95 FATHER : PERSON := (BIRTH_DATE => DATE'(JUL, 5, 1925),
99 DAUGHTER : PERSON := (BIRTH_DATE => DATE'(DEC, 10, 1980),
190 IF (LEFT.BIRTH_DATE = RIGHT.BIRTH_DATE) AND
419 MONTH_TYPE'IMAGE (THIS_PERSON.BIRTH_DATE.MONTH)) ;
421 DAY_TYPE'IMAGE (THIS_PERSON.BIRTH_DATE.DAY)) ;
423 YEAR_TYPE'IMAGE (THIS_PERSON.BIRTH_DATE.YEAR)) ;
/dports/lang/gcc9-aux/gcc-9.1.0/gcc/testsuite/ada/acats/tests/cc/
H A Dcc3019c2.ada68 BIRTH_DATE : DATE := (MONTH => OCT, variable
79 BIRTH_DATE : DATE ; component
87 MYSELF : PERSON := (BIRTH_DATE => BIRTH_DATE,
91 FRIEND : PERSON := (BIRTH_DATE => DATE'(DEC, 27, 1949),
95 FATHER : PERSON := (BIRTH_DATE => DATE'(JUL, 5, 1925),
99 DAUGHTER : PERSON := (BIRTH_DATE => DATE'(DEC, 10, 1980),
190 IF (LEFT.BIRTH_DATE = RIGHT.BIRTH_DATE) AND
419 MONTH_TYPE'IMAGE (THIS_PERSON.BIRTH_DATE.MONTH)) ;
421 DAY_TYPE'IMAGE (THIS_PERSON.BIRTH_DATE.DAY)) ;
423 YEAR_TYPE'IMAGE (THIS_PERSON.BIRTH_DATE.YEAR)) ;
/dports/misc/cxx_atomics_pic/gcc-11.2.0/gcc/testsuite/ada/acats/tests/cc/
H A Dcc3019c2.ada68 BIRTH_DATE : DATE := (MONTH => OCT, variable
79 BIRTH_DATE : DATE ; component
87 MYSELF : PERSON := (BIRTH_DATE => BIRTH_DATE,
91 FRIEND : PERSON := (BIRTH_DATE => DATE'(DEC, 27, 1949),
95 FATHER : PERSON := (BIRTH_DATE => DATE'(JUL, 5, 1925),
99 DAUGHTER : PERSON := (BIRTH_DATE => DATE'(DEC, 10, 1980),
190 IF (LEFT.BIRTH_DATE = RIGHT.BIRTH_DATE) AND
419 MONTH_TYPE'IMAGE (THIS_PERSON.BIRTH_DATE.MONTH)) ;
421 DAY_TYPE'IMAGE (THIS_PERSON.BIRTH_DATE.DAY)) ;
423 YEAR_TYPE'IMAGE (THIS_PERSON.BIRTH_DATE.YEAR)) ;
/dports/lang/gcc10/gcc-10.3.0/gcc/testsuite/ada/acats/tests/cc/
H A Dcc3019c2.ada68 BIRTH_DATE : DATE := (MONTH => OCT, variable
79 BIRTH_DATE : DATE ; component
87 MYSELF : PERSON := (BIRTH_DATE => BIRTH_DATE,
91 FRIEND : PERSON := (BIRTH_DATE => DATE'(DEC, 27, 1949),
95 FATHER : PERSON := (BIRTH_DATE => DATE'(JUL, 5, 1925),
99 DAUGHTER : PERSON := (BIRTH_DATE => DATE'(DEC, 10, 1980),
190 IF (LEFT.BIRTH_DATE = RIGHT.BIRTH_DATE) AND
419 MONTH_TYPE'IMAGE (THIS_PERSON.BIRTH_DATE.MONTH)) ;
421 DAY_TYPE'IMAGE (THIS_PERSON.BIRTH_DATE.DAY)) ;
423 YEAR_TYPE'IMAGE (THIS_PERSON.BIRTH_DATE.YEAR)) ;
/dports/devel/riscv32-unknown-elf-gcc/gcc-8.4.0/gcc/testsuite/ada/acats/tests/cc/
H A Dcc3019c2.ada68 BIRTH_DATE : DATE := (MONTH => OCT, variable
79 BIRTH_DATE : DATE ; component
87 MYSELF : PERSON := (BIRTH_DATE => BIRTH_DATE,
91 FRIEND : PERSON := (BIRTH_DATE => DATE'(DEC, 27, 1949),
95 FATHER : PERSON := (BIRTH_DATE => DATE'(JUL, 5, 1925),
99 DAUGHTER : PERSON := (BIRTH_DATE => DATE'(DEC, 10, 1980),
190 IF (LEFT.BIRTH_DATE = RIGHT.BIRTH_DATE) AND
419 MONTH_TYPE'IMAGE (THIS_PERSON.BIRTH_DATE.MONTH)) ;
421 DAY_TYPE'IMAGE (THIS_PERSON.BIRTH_DATE.DAY)) ;
423 YEAR_TYPE'IMAGE (THIS_PERSON.BIRTH_DATE.YEAR)) ;
/dports/lang/gcc9-devel/gcc-9-20211007/gcc/testsuite/ada/acats/tests/cc/
H A Dcc3019c2.ada68 BIRTH_DATE : DATE := (MONTH => OCT, variable
79 BIRTH_DATE : DATE ; component
87 MYSELF : PERSON := (BIRTH_DATE => BIRTH_DATE,
91 FRIEND : PERSON := (BIRTH_DATE => DATE'(DEC, 27, 1949),
95 FATHER : PERSON := (BIRTH_DATE => DATE'(JUL, 5, 1925),
99 DAUGHTER : PERSON := (BIRTH_DATE => DATE'(DEC, 10, 1980),
190 IF (LEFT.BIRTH_DATE = RIGHT.BIRTH_DATE) AND
419 MONTH_TYPE'IMAGE (THIS_PERSON.BIRTH_DATE.MONTH)) ;
421 DAY_TYPE'IMAGE (THIS_PERSON.BIRTH_DATE.DAY)) ;
423 YEAR_TYPE'IMAGE (THIS_PERSON.BIRTH_DATE.YEAR)) ;
/dports/lang/gcc11-devel/gcc-11-20211009/gcc/testsuite/ada/acats/tests/cc/
H A Dcc3019c2.ada68 BIRTH_DATE : DATE := (MONTH => OCT, variable
79 BIRTH_DATE : DATE ; component
87 MYSELF : PERSON := (BIRTH_DATE => BIRTH_DATE,
91 FRIEND : PERSON := (BIRTH_DATE => DATE'(DEC, 27, 1949),
95 FATHER : PERSON := (BIRTH_DATE => DATE'(JUL, 5, 1925),
99 DAUGHTER : PERSON := (BIRTH_DATE => DATE'(DEC, 10, 1980),
190 IF (LEFT.BIRTH_DATE = RIGHT.BIRTH_DATE) AND
419 MONTH_TYPE'IMAGE (THIS_PERSON.BIRTH_DATE.MONTH)) ;
421 DAY_TYPE'IMAGE (THIS_PERSON.BIRTH_DATE.DAY)) ;
423 YEAR_TYPE'IMAGE (THIS_PERSON.BIRTH_DATE.YEAR)) ;
/dports/lang/gcc8/gcc-8.5.0/gcc/testsuite/ada/acats/tests/cc/
H A Dcc3019c2.ada68 BIRTH_DATE : DATE := (MONTH => OCT, variable
79 BIRTH_DATE : DATE ; component
87 MYSELF : PERSON := (BIRTH_DATE => BIRTH_DATE,
91 FRIEND : PERSON := (BIRTH_DATE => DATE'(DEC, 27, 1949),
95 FATHER : PERSON := (BIRTH_DATE => DATE'(JUL, 5, 1925),
99 DAUGHTER : PERSON := (BIRTH_DATE => DATE'(DEC, 10, 1980),
190 IF (LEFT.BIRTH_DATE = RIGHT.BIRTH_DATE) AND
419 MONTH_TYPE'IMAGE (THIS_PERSON.BIRTH_DATE.MONTH)) ;
421 DAY_TYPE'IMAGE (THIS_PERSON.BIRTH_DATE.DAY)) ;
423 YEAR_TYPE'IMAGE (THIS_PERSON.BIRTH_DATE.YEAR)) ;
/dports/lang/gcc11/gcc-11.2.0/gcc/testsuite/ada/acats/tests/cc/
H A Dcc3019c2.ada68 BIRTH_DATE : DATE := (MONTH => OCT, variable
79 BIRTH_DATE : DATE ; component
87 MYSELF : PERSON := (BIRTH_DATE => BIRTH_DATE,
91 FRIEND : PERSON := (BIRTH_DATE => DATE'(DEC, 27, 1949),
95 FATHER : PERSON := (BIRTH_DATE => DATE'(JUL, 5, 1925),
99 DAUGHTER : PERSON := (BIRTH_DATE => DATE'(DEC, 10, 1980),
190 IF (LEFT.BIRTH_DATE = RIGHT.BIRTH_DATE) AND
419 MONTH_TYPE'IMAGE (THIS_PERSON.BIRTH_DATE.MONTH)) ;
421 DAY_TYPE'IMAGE (THIS_PERSON.BIRTH_DATE.DAY)) ;
423 YEAR_TYPE'IMAGE (THIS_PERSON.BIRTH_DATE.YEAR)) ;
/dports/devel/zpu-binutils/zpu-toolchain-1.0/toolchain/gcc/gcc/testsuite/ada/acats/tests/cc/
H A Dcc3019c2.ada68 BIRTH_DATE : DATE := (MONTH => OCT, variable
79 BIRTH_DATE : DATE ; component
87 MYSELF : PERSON := (BIRTH_DATE => BIRTH_DATE,
91 FRIEND : PERSON := (BIRTH_DATE => DATE'(DEC, 27, 1949),
95 FATHER : PERSON := (BIRTH_DATE => DATE'(JUL, 5, 1925),
99 DAUGHTER : PERSON := (BIRTH_DATE => DATE'(DEC, 10, 1980),
190 IF (LEFT.BIRTH_DATE = RIGHT.BIRTH_DATE) AND
419 MONTH_TYPE'IMAGE (THIS_PERSON.BIRTH_DATE.MONTH)) ;
421 DAY_TYPE'IMAGE (THIS_PERSON.BIRTH_DATE.DAY)) ;
423 YEAR_TYPE'IMAGE (THIS_PERSON.BIRTH_DATE.YEAR)) ;
/dports/devel/mingw32-gcc/gcc-4.8.1/gcc/testsuite/ada/acats/tests/cc/
H A Dcc3019c2.ada68 BIRTH_DATE : DATE := (MONTH => OCT, variable
79 BIRTH_DATE : DATE ; component
87 MYSELF : PERSON := (BIRTH_DATE => BIRTH_DATE,
91 FRIEND : PERSON := (BIRTH_DATE => DATE'(DEC, 27, 1949),
95 FATHER : PERSON := (BIRTH_DATE => DATE'(JUL, 5, 1925),
99 DAUGHTER : PERSON := (BIRTH_DATE => DATE'(DEC, 10, 1980),
190 IF (LEFT.BIRTH_DATE = RIGHT.BIRTH_DATE) AND
419 MONTH_TYPE'IMAGE (THIS_PERSON.BIRTH_DATE.MONTH)) ;
421 DAY_TYPE'IMAGE (THIS_PERSON.BIRTH_DATE.DAY)) ;
423 YEAR_TYPE'IMAGE (THIS_PERSON.BIRTH_DATE.YEAR)) ;

123