← Back to branch summary

~replatformtech/+junk/gnucobol3

« back to all changes in this revision

Viewing changes to tests/testsuite.src/syn_functions.at

  • Committer: Jim Popovitch
  • Date: 2024-11-29 15:39:36 UTC
  • Revision ID: jim.popovitch@replatformtech.com-20241129153936-wnjndpxl8m8k1mhe
Upstream changes

Show diffs side-by-side

added added

removed removed

Lines of Context:
tests/testsuite.src/syn_functions.at
1
 
## Copyright (C) 2007-2012, 2014-2018, 2020-2022 Free Software Foundation, Inc.
 
1
## Copyright (C) 2007-2012, 2014-2018, 2020-2023 Free Software Foundation, Inc.
2
2
## Written by Roger While, Simon Sobisch, Edward Hart
3
3
##
4
4
## This file is part of GnuCOBOL.
522
522
       SPECIAL-NAMES.
523
523
           DECIMAL-POINT IS COMMA.
524
524
       PROCEDURE        DIVISION.
525
 
           DISPLAY FUNCTION FORMATTED-TIME ("hhmmss,ss", 1)
526
 
           END-DISPLAY
 
525
           DISPLAY FUNCTION FORMATTED-TIME ("hhmmss,ss", 1).
527
526
           DISPLAY FUNCTION FORMATTED-DATETIME
528
 
                       ("YYYYMMDDThhmmss,ss", 1, 1)
529
 
           END-DISPLAY
 
527
                       ("YYYYMMDDThhmmss,ss", 1, 1).
530
528
 
531
 
           DISPLAY FUNCTION FORMATTED-TIME ("hhmmss.ss", 1)
532
 
           END-DISPLAY
 
529
           DISPLAY FUNCTION FORMATTED-TIME ("hhmmss.ss", 1).
533
530
           DISPLAY FUNCTION FORMATTED-DATETIME
534
 
                       ("YYYYMMDDThhmmss.ss", 1, 1)
535
 
           END-DISPLAY
 
531
                       ("YYYYMMDDThhmmss.ss", 1, 1).
536
532
 
537
533
           STOP RUN.
538
534
])
539
535
 
540
536
AT_CHECK([$COMPILE_ONLY prog.cob], [1], [],
541
 
[prog.cob:15: error: FUNCTION 'FORMATTED-TIME' has invalid date/time format
542
 
prog.cob:17: error: FUNCTION 'FORMATTED-DATETIME' has invalid date/time format
 
537
[prog.cob:13: error: FUNCTION 'FORMATTED-TIME' has invalid date/time format
 
538
prog.cob:14: error: FUNCTION 'FORMATTED-DATETIME' has invalid date/time format
543
539
])
544
540
 
545
541
AT_CLEANUP
577
573
       PROGRAM-ID.      prog.
578
574
       PROCEDURE        DIVISION.
579
575
           DISPLAY FUNCTION LENGTH      ("abcd" & "xyz")
580
 
           END-DISPLAY
581
576
           DISPLAY FUNCTION BYTE-LENGTH ("abcd" & "xyz")
582
 
           END-DISPLAY
583
577
           DISPLAY FUNCTION LENGTH      ("abcd" "xyz")
584
 
           END-DISPLAY
585
578
           DISPLAY FUNCTION BYTE-LENGTH (01234)
586
 
           END-DISPLAY
587
579
           DISPLAY FUNCTION LENGTH      (567)
588
 
           END-DISPLAY
589
580
           DISPLAY FUNCTION LENGTH      ("abcd" & "xyz" PHYSICAL)
590
 
           END-DISPLAY
591
581
           DISPLAY FUNCTION BYTE-LENGTH ("abcd" & "xyz" PHYSICAL)
592
 
           END-DISPLAY
593
582
           .
594
583
])
595
584
 
596
585
AT_CHECK([$COMPILE -Wno-pending prog.cob], [1], [],
597
 
[prog.cob:9: error: syntax error, unexpected Literal, expecting PHYSICAL or )
598
 
prog.cob:11: error: a non-numeric literal is expected here
599
 
prog.cob:13: error: a non-numeric literal is expected here
 
586
[prog.cob:7: error: syntax error, unexpected Literal, expecting PHYSICAL or )
 
587
prog.cob:8: error: a non-numeric literal is expected here
 
588
prog.cob:9: error: a non-numeric literal is expected here
600
589
])
601
590
 
602
591
AT_CLEANUP