maxjhandsome
/
llvm-project
forked from OSchip/llvm-project
1
0
Fork 0
Code Issues Pull Requests Packages Releases Wiki Activity
llvm-project/flang/test/Semantics/io03.f90

Ignoring revisions in .git-blame-ignore-revs. Click here to bypass and see the normal blame view.

184 lines
5.1 KiB
Fortran
Raw Normal View History

[Flang] Ported test_errors.sh to Python To enable Flang testing on Windows, shell scripts have to be ported to Python. In this patch the "test_errors.sh" script is ported to python ("test_errors.py"). The RUN line of existing tests was changed to make use of the python script. Used python regex in place of awk/sed. Reviewed By: Meinersbur Differential Revision: https://reviews.llvm.org/D107575
2021-09-06 16:19:20 +08:00
! RUN: %python %S/test_errors.py %s %flang_fc1
[flang] Clause 12 semantics -- Check all constraints not otherwise checked (flang-compiler/f18#427) * Clause 12 semantics Check all constraints not otherwise checked during parsing or label scope validation, except for C1201, C1231, and C1233-5. Obvious program requirements are also checked, except for 12.6.2.2 constant format string validation. Original-commit: flang-compiler/f18@e4ec3436184935c0c09f0b61c01f3cb86d84d0b3 Reviewed-on: https://github.com/flang-compiler/f18/pull/427
2019-05-01 02:28:16 +08:00
character(kind=1,len=50) internal_file
character(kind=2,len=50) internal_file2
character(kind=4,len=50) internal_file4
[flang] Check that various variables referenced in I/O statements may be defined A number of I/O syntax rules involve variables that will be written to, and must therefore be definable. This includes internal file variables, IOSTAT= and IOMSG= specifiers, most INQUIRE statement specifiers, a few other specifiers, and input variables. This patch checks for these violations, and implements several additional I/O TODO constraint checks. Differential Revision: https://reviews.llvm.org/D86557
2020-08-26 01:34:33 +08:00
character(kind=1,len=50) internal_fileA(20)
[flang] Clause 12 semantics -- Check all constraints not otherwise checked (flang-compiler/f18#427) * Clause 12 semantics Check all constraints not otherwise checked during parsing or label scope validation, except for C1201, C1231, and C1233-5. Obvious program requirements are also checked, except for 12.6.2.2 constant format string validation. Original-commit: flang-compiler/f18@e4ec3436184935c0c09f0b61c01f3cb86d84d0b3 Reviewed-on: https://github.com/flang-compiler/f18/pull/427
2019-05-01 02:28:16 +08:00
character(kind=1,len=111) msg
character(20) advance
[flang] Check that various variables referenced in I/O statements may be defined A number of I/O syntax rules involve variables that will be written to, and must therefore be definable. This includes internal file variables, IOSTAT= and IOMSG= specifiers, most INQUIRE statement specifiers, a few other specifiers, and input variables. This patch checks for these violations, and implements several additional I/O TODO constraint checks. Differential Revision: https://reviews.llvm.org/D86557
2020-08-26 01:34:33 +08:00
character(20) :: cvar;
character, parameter :: const_internal_file = "(I6)"
character, parameter :: const_cvar = "Ceci n'est pas une pipe."
[flang] Clause 12 semantics -- Check all constraints not otherwise checked (flang-compiler/f18#427) * Clause 12 semantics Check all constraints not otherwise checked during parsing or label scope validation, except for C1201, C1231, and C1233-5. Obvious program requirements are also checked, except for 12.6.2.2 constant format string validation. Original-commit: flang-compiler/f18@e4ec3436184935c0c09f0b61c01f3cb86d84d0b3 Reviewed-on: https://github.com/flang-compiler/f18/pull/427
2019-05-01 02:28:16 +08:00
integer*1 stat1
integer*2 stat2, id2
integer*8 stat8
integer :: iunit = 10
[flang] Check that various variables referenced in I/O statements may be defined A number of I/O syntax rules involve variables that will be written to, and must therefore be definable. This includes internal file variables, IOSTAT= and IOMSG= specifiers, most INQUIRE statement specifiers, a few other specifiers, and input variables. This patch checks for these violations, and implements several additional I/O TODO constraint checks. Differential Revision: https://reviews.llvm.org/D86557
2020-08-26 01:34:33 +08:00
integer, parameter :: junit = 11, const_size = 13, const_int = 15
integer :: vv(10) = 7
[flang] Clause 12 semantics -- Check all constraints not otherwise checked (flang-compiler/f18#427) * Clause 12 semantics Check all constraints not otherwise checked during parsing or label scope validation, except for C1201, C1231, and C1233-5. Obvious program requirements are also checked, except for 12.6.2.2 constant format string validation. Original-commit: flang-compiler/f18@e4ec3436184935c0c09f0b61c01f3cb86d84d0b3 Reviewed-on: https://github.com/flang-compiler/f18/pull/427
2019-05-01 02:28:16 +08:00
namelist /mmm/ mm1, mm2
namelist /nnn/ nn1, nn2
advance='no'
open(10)
read*
[flang] Initialize PRINT semantics. Fixes flang-compiler/f18#516 (flang-compiler/f18#528) There are no Clause 12 constraints to check for PRINT, but PRINT does share FMT specifier processing with READ and WRITE. To avoid interactions between these I/O statements, reset IoChecker values for PRINT. Original-commit: flang-compiler/f18@6a547667187e2832c8c162d4ee02835ff4c190b4 Reviewed-on: https://github.com/flang-compiler/f18/pull/528
2019-06-27 06:46:48 +08:00
print*, 'Ok'
[flang] Clause 12 semantics -- Check all constraints not otherwise checked (flang-compiler/f18#427) * Clause 12 semantics Check all constraints not otherwise checked during parsing or label scope validation, except for C1201, C1231, and C1233-5. Obvious program requirements are also checked, except for 12.6.2.2 constant format string validation. Original-commit: flang-compiler/f18@e4ec3436184935c0c09f0b61c01f3cb86d84d0b3 Reviewed-on: https://github.com/flang-compiler/f18/pull/427
2019-05-01 02:28:16 +08:00
read(*)
read*, jj
read(*, *) jj
read(unit=*, *) jj
read(*, fmt=*) jj
read(*, '(I4)') jj
read(*, fmt='(I4)') jj
read(fmt='(I4)', unit=*) jj
read(iunit, *) jj
read(junit, *) jj
[flang] Check that various variables referenced in I/O statements may be defined A number of I/O syntax rules involve variables that will be written to, and must therefore be definable. This includes internal file variables, IOSTAT= and IOMSG= specifiers, most INQUIRE statement specifiers, a few other specifiers, and input variables. This patch checks for these violations, and implements several additional I/O TODO constraint checks. Differential Revision: https://reviews.llvm.org/D86557
2020-08-26 01:34:33 +08:00
read(10, *) jj, cvar, cvar(7:17)
[flang] Clause 12 semantics -- Check all constraints not otherwise checked (flang-compiler/f18#427) * Clause 12 semantics Check all constraints not otherwise checked during parsing or label scope validation, except for C1201, C1231, and C1233-5. Obvious program requirements are also checked, except for 12.6.2.2 constant format string validation. Original-commit: flang-compiler/f18@e4ec3436184935c0c09f0b61c01f3cb86d84d0b3 Reviewed-on: https://github.com/flang-compiler/f18/pull/427
2019-05-01 02:28:16 +08:00
read(internal_file, *) jj
[flang] Check that various variables referenced in I/O statements may be defined A number of I/O syntax rules involve variables that will be written to, and must therefore be definable. This includes internal file variables, IOSTAT= and IOMSG= specifiers, most INQUIRE statement specifiers, a few other specifiers, and input variables. This patch checks for these violations, and implements several additional I/O TODO constraint checks. Differential Revision: https://reviews.llvm.org/D86557
2020-08-26 01:34:33 +08:00
read(internal_fileA(3), *) jj
read(internal_fileA(4:9), *) jj
[flang] Clause 12 semantics -- Check all constraints not otherwise checked (flang-compiler/f18#427) * Clause 12 semantics Check all constraints not otherwise checked during parsing or label scope validation, except for C1201, C1231, and C1233-5. Obvious program requirements are also checked, except for 12.6.2.2 constant format string validation. Original-commit: flang-compiler/f18@e4ec3436184935c0c09f0b61c01f3cb86d84d0b3 Reviewed-on: https://github.com/flang-compiler/f18/pull/427
2019-05-01 02:28:16 +08:00
read(10, nnn)
read(internal_file, nnn)
read(internal_file, nml=nnn)
[flang] Check that various variables referenced in I/O statements may be defined A number of I/O syntax rules involve variables that will be written to, and must therefore be definable. This includes internal file variables, IOSTAT= and IOMSG= specifiers, most INQUIRE statement specifiers, a few other specifiers, and input variables. This patch checks for these violations, and implements several additional I/O TODO constraint checks. Differential Revision: https://reviews.llvm.org/D86557
2020-08-26 01:34:33 +08:00
read(const_internal_file, *)
[flang] Clause 12 semantics -- Check all constraints not otherwise checked (flang-compiler/f18#427) * Clause 12 semantics Check all constraints not otherwise checked during parsing or label scope validation, except for C1201, C1231, and C1233-5. Obvious program requirements are also checked, except for 12.6.2.2 constant format string validation. Original-commit: flang-compiler/f18@e4ec3436184935c0c09f0b61c01f3cb86d84d0b3 Reviewed-on: https://github.com/flang-compiler/f18/pull/427
2019-05-01 02:28:16 +08:00
read(fmt=*, unit=internal_file)
read(nml=nnn, unit=internal_file)
read(iunit, nnn)
read(10, nml=nnn)
read(10, asynchronous='no') jj
read(10, asynchronous='yes') jj
read(10, eor=9, advance='no', fmt='(I4)') jj
read(10, eor=9, advance='no', fmt='(I4)') jj
read(10, asynchronous='yes', id=id) jj
read(10, '(I4)', advance='no', asynchronous='yes', blank='null', &
decimal='comma', end=9, eor=9, err=9, id=id, iomsg=msg, iostat=stat2, &
pad='no', round='processor_defined', size=kk) jj
[flang] Clause 13 (Input/output editing) syntax and semantic checking (flang-compiler/f18#498) * Clause 13 (Input/output editing) syntax and semantic checking Diagnose: - all clause syntax errors (independent of normal parsing) - all clause constraints - use of non-standard extensions under -Mstandard - obvious program requirement violations The code: - is invoked for both format statement and I/O statement constant formats - should be useable by the runtime I/O library for runtime formats - is able to recover from errors - is able to diagnose multiple errors in a single format - has accurate markers for errors - can process (fixed character size) Hollerith strings - generates reasonable error messages for known error scenarios - should not require C++ run-time library support The code is templatized for use with fixed size character kind={1,2,4} input, but only the kind=1 variant is actually exercised. * Review update. * Review update. * Review update. * Improve error processing of unterminated formats. Original-commit: flang-compiler/f18@c04b7518df75bb516f039065d4edcba87dae8210 Reviewed-on: https://github.com/flang-compiler/f18/pull/498
2019-06-26 06:59:30 +08:00
!ERROR: Invalid character kind for an internal file variable
[flang] Clause 12 semantics -- Check all constraints not otherwise checked (flang-compiler/f18#427) * Clause 12 semantics Check all constraints not otherwise checked during parsing or label scope validation, except for C1201, C1231, and C1233-5. Obvious program requirements are also checked, except for 12.6.2.2 constant format string validation. Original-commit: flang-compiler/f18@e4ec3436184935c0c09f0b61c01f3cb86d84d0b3 Reviewed-on: https://github.com/flang-compiler/f18/pull/427
2019-05-01 02:28:16 +08:00
read(internal_file2, *) jj
[flang] Clause 13 (Input/output editing) syntax and semantic checking (flang-compiler/f18#498) * Clause 13 (Input/output editing) syntax and semantic checking Diagnose: - all clause syntax errors (independent of normal parsing) - all clause constraints - use of non-standard extensions under -Mstandard - obvious program requirement violations The code: - is invoked for both format statement and I/O statement constant formats - should be useable by the runtime I/O library for runtime formats - is able to recover from errors - is able to diagnose multiple errors in a single format - has accurate markers for errors - can process (fixed character size) Hollerith strings - generates reasonable error messages for known error scenarios - should not require C++ run-time library support The code is templatized for use with fixed size character kind={1,2,4} input, but only the kind=1 variant is actually exercised. * Review update. * Review update. * Review update. * Improve error processing of unterminated formats. Original-commit: flang-compiler/f18@c04b7518df75bb516f039065d4edcba87dae8210 Reviewed-on: https://github.com/flang-compiler/f18/pull/498
2019-06-26 06:59:30 +08:00
!ERROR: Invalid character kind for an internal file variable
[flang] Clause 12 semantics -- Check all constraints not otherwise checked (flang-compiler/f18#427) * Clause 12 semantics Check all constraints not otherwise checked during parsing or label scope validation, except for C1201, C1231, and C1233-5. Obvious program requirements are also checked, except for 12.6.2.2 constant format string validation. Original-commit: flang-compiler/f18@e4ec3436184935c0c09f0b61c01f3cb86d84d0b3 Reviewed-on: https://github.com/flang-compiler/f18/pull/427
2019-05-01 02:28:16 +08:00
read(internal_file4, *) jj
[flang] Check that various variables referenced in I/O statements may be defined A number of I/O syntax rules involve variables that will be written to, and must therefore be definable. This includes internal file variables, IOSTAT= and IOMSG= specifiers, most INQUIRE statement specifiers, a few other specifiers, and input variables. This patch checks for these violations, and implements several additional I/O TODO constraint checks. Differential Revision: https://reviews.llvm.org/D86557
2020-08-26 01:34:33 +08:00
!ERROR: Internal file must not have a vector subscript
read(internal_fileA(vv), *) jj
!ERROR: Input variable 'const_int' must be definable
read(11, *) const_int
!ERROR: SIZE variable 'const_size' must be definable
read(11, pos=ipos, size=const_size, end=9)
!ERROR: Input variable 'const_cvar' must be definable
read(11, *) const_cvar
!ERROR: Input variable 'const_cvar' must be definable
read(11, *) const_cvar(3:13)
[flang] Clause 13 (Input/output editing) syntax and semantic checking (flang-compiler/f18#498) * Clause 13 (Input/output editing) syntax and semantic checking Diagnose: - all clause syntax errors (independent of normal parsing) - all clause constraints - use of non-standard extensions under -Mstandard - obvious program requirement violations The code: - is invoked for both format statement and I/O statement constant formats - should be useable by the runtime I/O library for runtime formats - is able to recover from errors - is able to diagnose multiple errors in a single format - has accurate markers for errors - can process (fixed character size) Hollerith strings - generates reasonable error messages for known error scenarios - should not require C++ run-time library support The code is templatized for use with fixed size character kind={1,2,4} input, but only the kind=1 variant is actually exercised. * Review update. * Review update. * Review update. * Improve error processing of unterminated formats. Original-commit: flang-compiler/f18@c04b7518df75bb516f039065d4edcba87dae8210 Reviewed-on: https://github.com/flang-compiler/f18/pull/498
2019-06-26 06:59:30 +08:00
!ERROR: Duplicate IOSTAT specifier
[flang] Clause 12 semantics -- Check all constraints not otherwise checked (flang-compiler/f18#427) * Clause 12 semantics Check all constraints not otherwise checked during parsing or label scope validation, except for C1201, C1231, and C1233-5. Obvious program requirements are also checked, except for 12.6.2.2 constant format string validation. Original-commit: flang-compiler/f18@e4ec3436184935c0c09f0b61c01f3cb86d84d0b3 Reviewed-on: https://github.com/flang-compiler/f18/pull/427
2019-05-01 02:28:16 +08:00
read(11, pos=ipos, iostat=stat1, iostat=stat2)
[flang] Clause 13 (Input/output editing) syntax and semantic checking (flang-compiler/f18#498) * Clause 13 (Input/output editing) syntax and semantic checking Diagnose: - all clause syntax errors (independent of normal parsing) - all clause constraints - use of non-standard extensions under -Mstandard - obvious program requirement violations The code: - is invoked for both format statement and I/O statement constant formats - should be useable by the runtime I/O library for runtime formats - is able to recover from errors - is able to diagnose multiple errors in a single format - has accurate markers for errors - can process (fixed character size) Hollerith strings - generates reasonable error messages for known error scenarios - should not require C++ run-time library support The code is templatized for use with fixed size character kind={1,2,4} input, but only the kind=1 variant is actually exercised. * Review update. * Review update. * Review update. * Improve error processing of unterminated formats. Original-commit: flang-compiler/f18@c04b7518df75bb516f039065d4edcba87dae8210 Reviewed-on: https://github.com/flang-compiler/f18/pull/498
2019-06-26 06:59:30 +08:00
!ERROR: Duplicate END specifier
[flang] Clause 12 semantics -- Check all constraints not otherwise checked (flang-compiler/f18#427) * Clause 12 semantics Check all constraints not otherwise checked during parsing or label scope validation, except for C1201, C1231, and C1233-5. Obvious program requirements are also checked, except for 12.6.2.2 constant format string validation. Original-commit: flang-compiler/f18@e4ec3436184935c0c09f0b61c01f3cb86d84d0b3 Reviewed-on: https://github.com/flang-compiler/f18/pull/427
2019-05-01 02:28:16 +08:00
read(11, end=9, pos=ipos, end=9)
[flang] Clause 13 (Input/output editing) syntax and semantic checking (flang-compiler/f18#498) * Clause 13 (Input/output editing) syntax and semantic checking Diagnose: - all clause syntax errors (independent of normal parsing) - all clause constraints - use of non-standard extensions under -Mstandard - obvious program requirement violations The code: - is invoked for both format statement and I/O statement constant formats - should be useable by the runtime I/O library for runtime formats - is able to recover from errors - is able to diagnose multiple errors in a single format - has accurate markers for errors - can process (fixed character size) Hollerith strings - generates reasonable error messages for known error scenarios - should not require C++ run-time library support The code is templatized for use with fixed size character kind={1,2,4} input, but only the kind=1 variant is actually exercised. * Review update. * Review update. * Review update. * Improve error processing of unterminated formats. Original-commit: flang-compiler/f18@c04b7518df75bb516f039065d4edcba87dae8210 Reviewed-on: https://github.com/flang-compiler/f18/pull/498
2019-06-26 06:59:30 +08:00
!ERROR: Duplicate NML specifier
[flang] Clause 12 semantics -- Check all constraints not otherwise checked (flang-compiler/f18#427) * Clause 12 semantics Check all constraints not otherwise checked during parsing or label scope validation, except for C1201, C1231, and C1233-5. Obvious program requirements are also checked, except for 12.6.2.2 constant format string validation. Original-commit: flang-compiler/f18@e4ec3436184935c0c09f0b61c01f3cb86d84d0b3 Reviewed-on: https://github.com/flang-compiler/f18/pull/427
2019-05-01 02:28:16 +08:00
read(10, nml=mmm, nml=nnn)
!ERROR: READ statement must have a UNIT specifier
read(err=9, iostat=stat8) jj
!ERROR: READ statement must not have a DELIM specifier
!ERROR: READ statement must not have a SIGN specifier
read(10, delim='quote', sign='plus') jj
[flang] Clause 13 (Input/output editing) syntax and semantic checking (flang-compiler/f18#498) * Clause 13 (Input/output editing) syntax and semantic checking Diagnose: - all clause syntax errors (independent of normal parsing) - all clause constraints - use of non-standard extensions under -Mstandard - obvious program requirement violations The code: - is invoked for both format statement and I/O statement constant formats - should be useable by the runtime I/O library for runtime formats - is able to recover from errors - is able to diagnose multiple errors in a single format - has accurate markers for errors - can process (fixed character size) Hollerith strings - generates reasonable error messages for known error scenarios - should not require C++ run-time library support The code is templatized for use with fixed size character kind={1,2,4} input, but only the kind=1 variant is actually exercised. * Review update. * Review update. * Review update. * Improve error processing of unterminated formats. Original-commit: flang-compiler/f18@c04b7518df75bb516f039065d4edcba87dae8210 Reviewed-on: https://github.com/flang-compiler/f18/pull/498
2019-06-26 06:59:30 +08:00
!ERROR: If NML appears, REC must not appear
[flang] Clause 12 semantics -- Check all constraints not otherwise checked (flang-compiler/f18#427) * Clause 12 semantics Check all constraints not otherwise checked during parsing or label scope validation, except for C1201, C1231, and C1233-5. Obvious program requirements are also checked, except for 12.6.2.2 constant format string validation. Original-commit: flang-compiler/f18@e4ec3436184935c0c09f0b61c01f3cb86d84d0b3 Reviewed-on: https://github.com/flang-compiler/f18/pull/427
2019-05-01 02:28:16 +08:00
read(10, nnn, rec=nn)
[flang] Clause 13 (Input/output editing) syntax and semantic checking (flang-compiler/f18#498) * Clause 13 (Input/output editing) syntax and semantic checking Diagnose: - all clause syntax errors (independent of normal parsing) - all clause constraints - use of non-standard extensions under -Mstandard - obvious program requirement violations The code: - is invoked for both format statement and I/O statement constant formats - should be useable by the runtime I/O library for runtime formats - is able to recover from errors - is able to diagnose multiple errors in a single format - has accurate markers for errors - can process (fixed character size) Hollerith strings - generates reasonable error messages for known error scenarios - should not require C++ run-time library support The code is templatized for use with fixed size character kind={1,2,4} input, but only the kind=1 variant is actually exercised. * Review update. * Review update. * Review update. * Improve error processing of unterminated formats. Original-commit: flang-compiler/f18@c04b7518df75bb516f039065d4edcba87dae8210 Reviewed-on: https://github.com/flang-compiler/f18/pull/498
2019-06-26 06:59:30 +08:00
!ERROR: If NML appears, FMT must not appear
!ERROR: If NML appears, a data list must not appear
[flang] Clause 12 semantics -- Check all constraints not otherwise checked (flang-compiler/f18#427) * Clause 12 semantics Check all constraints not otherwise checked during parsing or label scope validation, except for C1201, C1231, and C1233-5. Obvious program requirements are also checked, except for 12.6.2.2 constant format string validation. Original-commit: flang-compiler/f18@e4ec3436184935c0c09f0b61c01f3cb86d84d0b3 Reviewed-on: https://github.com/flang-compiler/f18/pull/427
2019-05-01 02:28:16 +08:00
read(10, fmt=*, nml=nnn) jj
[flang] Clause 13 (Input/output editing) syntax and semantic checking (flang-compiler/f18#498) * Clause 13 (Input/output editing) syntax and semantic checking Diagnose: - all clause syntax errors (independent of normal parsing) - all clause constraints - use of non-standard extensions under -Mstandard - obvious program requirement violations The code: - is invoked for both format statement and I/O statement constant formats - should be useable by the runtime I/O library for runtime formats - is able to recover from errors - is able to diagnose multiple errors in a single format - has accurate markers for errors - can process (fixed character size) Hollerith strings - generates reasonable error messages for known error scenarios - should not require C++ run-time library support The code is templatized for use with fixed size character kind={1,2,4} input, but only the kind=1 variant is actually exercised. * Review update. * Review update. * Review update. * Improve error processing of unterminated formats. Original-commit: flang-compiler/f18@c04b7518df75bb516f039065d4edcba87dae8210 Reviewed-on: https://github.com/flang-compiler/f18/pull/498
2019-06-26 06:59:30 +08:00
!ERROR: If UNIT=* appears, REC must not appear
[flang] Clause 12 semantics -- Check all constraints not otherwise checked (flang-compiler/f18#427) * Clause 12 semantics Check all constraints not otherwise checked during parsing or label scope validation, except for C1201, C1231, and C1233-5. Obvious program requirements are also checked, except for 12.6.2.2 constant format string validation. Original-commit: flang-compiler/f18@e4ec3436184935c0c09f0b61c01f3cb86d84d0b3 Reviewed-on: https://github.com/flang-compiler/f18/pull/427
2019-05-01 02:28:16 +08:00
read(*, rec=13)
[flang] Clause 13 (Input/output editing) syntax and semantic checking (flang-compiler/f18#498) * Clause 13 (Input/output editing) syntax and semantic checking Diagnose: - all clause syntax errors (independent of normal parsing) - all clause constraints - use of non-standard extensions under -Mstandard - obvious program requirement violations The code: - is invoked for both format statement and I/O statement constant formats - should be useable by the runtime I/O library for runtime formats - is able to recover from errors - is able to diagnose multiple errors in a single format - has accurate markers for errors - can process (fixed character size) Hollerith strings - generates reasonable error messages for known error scenarios - should not require C++ run-time library support The code is templatized for use with fixed size character kind={1,2,4} input, but only the kind=1 variant is actually exercised. * Review update. * Review update. * Review update. * Improve error processing of unterminated formats. Original-commit: flang-compiler/f18@c04b7518df75bb516f039065d4edcba87dae8210 Reviewed-on: https://github.com/flang-compiler/f18/pull/498
2019-06-26 06:59:30 +08:00
!ERROR: If UNIT=* appears, POS must not appear
[flang] Clause 12 semantics -- Check all constraints not otherwise checked (flang-compiler/f18#427) * Clause 12 semantics Check all constraints not otherwise checked during parsing or label scope validation, except for C1201, C1231, and C1233-5. Obvious program requirements are also checked, except for 12.6.2.2 constant format string validation. Original-commit: flang-compiler/f18@e4ec3436184935c0c09f0b61c01f3cb86d84d0b3 Reviewed-on: https://github.com/flang-compiler/f18/pull/427
2019-05-01 02:28:16 +08:00
read(*, pos=13)
[flang] Clause 13 (Input/output editing) syntax and semantic checking (flang-compiler/f18#498) * Clause 13 (Input/output editing) syntax and semantic checking Diagnose: - all clause syntax errors (independent of normal parsing) - all clause constraints - use of non-standard extensions under -Mstandard - obvious program requirement violations The code: - is invoked for both format statement and I/O statement constant formats - should be useable by the runtime I/O library for runtime formats - is able to recover from errors - is able to diagnose multiple errors in a single format - has accurate markers for errors - can process (fixed character size) Hollerith strings - generates reasonable error messages for known error scenarios - should not require C++ run-time library support The code is templatized for use with fixed size character kind={1,2,4} input, but only the kind=1 variant is actually exercised. * Review update. * Review update. * Review update. * Improve error processing of unterminated formats. Original-commit: flang-compiler/f18@c04b7518df75bb516f039065d4edcba87dae8210 Reviewed-on: https://github.com/flang-compiler/f18/pull/498
2019-06-26 06:59:30 +08:00
!ERROR: If UNIT=internal-file appears, REC must not appear
[flang] Clause 12 semantics -- Check all constraints not otherwise checked (flang-compiler/f18#427) * Clause 12 semantics Check all constraints not otherwise checked during parsing or label scope validation, except for C1201, C1231, and C1233-5. Obvious program requirements are also checked, except for 12.6.2.2 constant format string validation. Original-commit: flang-compiler/f18@e4ec3436184935c0c09f0b61c01f3cb86d84d0b3 Reviewed-on: https://github.com/flang-compiler/f18/pull/427
2019-05-01 02:28:16 +08:00
read(internal_file, rec=13)
[flang] Clause 13 (Input/output editing) syntax and semantic checking (flang-compiler/f18#498) * Clause 13 (Input/output editing) syntax and semantic checking Diagnose: - all clause syntax errors (independent of normal parsing) - all clause constraints - use of non-standard extensions under -Mstandard - obvious program requirement violations The code: - is invoked for both format statement and I/O statement constant formats - should be useable by the runtime I/O library for runtime formats - is able to recover from errors - is able to diagnose multiple errors in a single format - has accurate markers for errors - can process (fixed character size) Hollerith strings - generates reasonable error messages for known error scenarios - should not require C++ run-time library support The code is templatized for use with fixed size character kind={1,2,4} input, but only the kind=1 variant is actually exercised. * Review update. * Review update. * Review update. * Improve error processing of unterminated formats. Original-commit: flang-compiler/f18@c04b7518df75bb516f039065d4edcba87dae8210 Reviewed-on: https://github.com/flang-compiler/f18/pull/498
2019-06-26 06:59:30 +08:00
!ERROR: If UNIT=internal-file appears, POS must not appear
[flang] Clause 12 semantics -- Check all constraints not otherwise checked (flang-compiler/f18#427) * Clause 12 semantics Check all constraints not otherwise checked during parsing or label scope validation, except for C1201, C1231, and C1233-5. Obvious program requirements are also checked, except for 12.6.2.2 constant format string validation. Original-commit: flang-compiler/f18@e4ec3436184935c0c09f0b61c01f3cb86d84d0b3 Reviewed-on: https://github.com/flang-compiler/f18/pull/427
2019-05-01 02:28:16 +08:00
read(internal_file, pos=13)
[flang] Clause 13 (Input/output editing) syntax and semantic checking (flang-compiler/f18#498) * Clause 13 (Input/output editing) syntax and semantic checking Diagnose: - all clause syntax errors (independent of normal parsing) - all clause constraints - use of non-standard extensions under -Mstandard - obvious program requirement violations The code: - is invoked for both format statement and I/O statement constant formats - should be useable by the runtime I/O library for runtime formats - is able to recover from errors - is able to diagnose multiple errors in a single format - has accurate markers for errors - can process (fixed character size) Hollerith strings - generates reasonable error messages for known error scenarios - should not require C++ run-time library support The code is templatized for use with fixed size character kind={1,2,4} input, but only the kind=1 variant is actually exercised. * Review update. * Review update. * Review update. * Improve error processing of unterminated formats. Original-commit: flang-compiler/f18@c04b7518df75bb516f039065d4edcba87dae8210 Reviewed-on: https://github.com/flang-compiler/f18/pull/498
2019-06-26 06:59:30 +08:00
!ERROR: If REC appears, END must not appear
[flang] Clause 12 semantics -- Check all constraints not otherwise checked (flang-compiler/f18#427) * Clause 12 semantics Check all constraints not otherwise checked during parsing or label scope validation, except for C1201, C1231, and C1233-5. Obvious program requirements are also checked, except for 12.6.2.2 constant format string validation. Original-commit: flang-compiler/f18@e4ec3436184935c0c09f0b61c01f3cb86d84d0b3 Reviewed-on: https://github.com/flang-compiler/f18/pull/427
2019-05-01 02:28:16 +08:00
read(10, fmt='(I4)', end=9, rec=13) jj
[flang] Clause 13 (Input/output editing) syntax and semantic checking (flang-compiler/f18#498) * Clause 13 (Input/output editing) syntax and semantic checking Diagnose: - all clause syntax errors (independent of normal parsing) - all clause constraints - use of non-standard extensions under -Mstandard - obvious program requirement violations The code: - is invoked for both format statement and I/O statement constant formats - should be useable by the runtime I/O library for runtime formats - is able to recover from errors - is able to diagnose multiple errors in a single format - has accurate markers for errors - can process (fixed character size) Hollerith strings - generates reasonable error messages for known error scenarios - should not require C++ run-time library support The code is templatized for use with fixed size character kind={1,2,4} input, but only the kind=1 variant is actually exercised. * Review update. * Review update. * Review update. * Improve error processing of unterminated formats. Original-commit: flang-compiler/f18@c04b7518df75bb516f039065d4edcba87dae8210 Reviewed-on: https://github.com/flang-compiler/f18/pull/498
2019-06-26 06:59:30 +08:00
!ERROR: If REC appears, FMT=* must not appear
[flang] Clause 12 semantics -- Check all constraints not otherwise checked (flang-compiler/f18#427) * Clause 12 semantics Check all constraints not otherwise checked during parsing or label scope validation, except for C1201, C1231, and C1233-5. Obvious program requirements are also checked, except for 12.6.2.2 constant format string validation. Original-commit: flang-compiler/f18@e4ec3436184935c0c09f0b61c01f3cb86d84d0b3 Reviewed-on: https://github.com/flang-compiler/f18/pull/427
2019-05-01 02:28:16 +08:00
read(10, *, rec=13) jj
[flang] Clause 13 (Input/output editing) syntax and semantic checking (flang-compiler/f18#498) * Clause 13 (Input/output editing) syntax and semantic checking Diagnose: - all clause syntax errors (independent of normal parsing) - all clause constraints - use of non-standard extensions under -Mstandard - obvious program requirement violations The code: - is invoked for both format statement and I/O statement constant formats - should be useable by the runtime I/O library for runtime formats - is able to recover from errors - is able to diagnose multiple errors in a single format - has accurate markers for errors - can process (fixed character size) Hollerith strings - generates reasonable error messages for known error scenarios - should not require C++ run-time library support The code is templatized for use with fixed size character kind={1,2,4} input, but only the kind=1 variant is actually exercised. * Review update. * Review update. * Review update. * Improve error processing of unterminated formats. Original-commit: flang-compiler/f18@c04b7518df75bb516f039065d4edcba87dae8210 Reviewed-on: https://github.com/flang-compiler/f18/pull/498
2019-06-26 06:59:30 +08:00
!ERROR: If ADVANCE appears, UNIT=internal-file must not appear
[flang] Clause 12 semantics -- Check all constraints not otherwise checked (flang-compiler/f18#427) * Clause 12 semantics Check all constraints not otherwise checked during parsing or label scope validation, except for C1201, C1231, and C1233-5. Obvious program requirements are also checked, except for 12.6.2.2 constant format string validation. Original-commit: flang-compiler/f18@e4ec3436184935c0c09f0b61c01f3cb86d84d0b3 Reviewed-on: https://github.com/flang-compiler/f18/pull/427
2019-05-01 02:28:16 +08:00
read(internal_file, '(I4)', eor=9, advance='no') jj
[flang] Clause 13 (Input/output editing) syntax and semantic checking (flang-compiler/f18#498) * Clause 13 (Input/output editing) syntax and semantic checking Diagnose: - all clause syntax errors (independent of normal parsing) - all clause constraints - use of non-standard extensions under -Mstandard - obvious program requirement violations The code: - is invoked for both format statement and I/O statement constant formats - should be useable by the runtime I/O library for runtime formats - is able to recover from errors - is able to diagnose multiple errors in a single format - has accurate markers for errors - can process (fixed character size) Hollerith strings - generates reasonable error messages for known error scenarios - should not require C++ run-time library support The code is templatized for use with fixed size character kind={1,2,4} input, but only the kind=1 variant is actually exercised. * Review update. * Review update. * Review update. * Improve error processing of unterminated formats. Original-commit: flang-compiler/f18@c04b7518df75bb516f039065d4edcba87dae8210 Reviewed-on: https://github.com/flang-compiler/f18/pull/498
2019-06-26 06:59:30 +08:00
!ERROR: If ADVANCE appears, an explicit format must also appear
!ERROR: If EOR appears, ADVANCE with value 'NO' must also appear
[flang] Clause 12 semantics -- Check all constraints not otherwise checked (flang-compiler/f18#427) * Clause 12 semantics Check all constraints not otherwise checked during parsing or label scope validation, except for C1201, C1231, and C1233-5. Obvious program requirements are also checked, except for 12.6.2.2 constant format string validation. Original-commit: flang-compiler/f18@e4ec3436184935c0c09f0b61c01f3cb86d84d0b3 Reviewed-on: https://github.com/flang-compiler/f18/pull/427
2019-05-01 02:28:16 +08:00
read(10, eor=9, advance='yes')
[flang] Clause 13 (Input/output editing) syntax and semantic checking (flang-compiler/f18#498) * Clause 13 (Input/output editing) syntax and semantic checking Diagnose: - all clause syntax errors (independent of normal parsing) - all clause constraints - use of non-standard extensions under -Mstandard - obvious program requirement violations The code: - is invoked for both format statement and I/O statement constant formats - should be useable by the runtime I/O library for runtime formats - is able to recover from errors - is able to diagnose multiple errors in a single format - has accurate markers for errors - can process (fixed character size) Hollerith strings - generates reasonable error messages for known error scenarios - should not require C++ run-time library support The code is templatized for use with fixed size character kind={1,2,4} input, but only the kind=1 variant is actually exercised. * Review update. * Review update. * Review update. * Improve error processing of unterminated formats. Original-commit: flang-compiler/f18@c04b7518df75bb516f039065d4edcba87dae8210 Reviewed-on: https://github.com/flang-compiler/f18/pull/498
2019-06-26 06:59:30 +08:00
!ERROR: If EOR appears, ADVANCE with value 'NO' must also appear
[flang] Clause 12 semantics -- Check all constraints not otherwise checked (flang-compiler/f18#427) * Clause 12 semantics Check all constraints not otherwise checked during parsing or label scope validation, except for C1201, C1231, and C1233-5. Obvious program requirements are also checked, except for 12.6.2.2 constant format string validation. Original-commit: flang-compiler/f18@e4ec3436184935c0c09f0b61c01f3cb86d84d0b3 Reviewed-on: https://github.com/flang-compiler/f18/pull/427
2019-05-01 02:28:16 +08:00
read(10, eor=9)
[flang] Clause 13 (Input/output editing) syntax and semantic checking (flang-compiler/f18#498) * Clause 13 (Input/output editing) syntax and semantic checking Diagnose: - all clause syntax errors (independent of normal parsing) - all clause constraints - use of non-standard extensions under -Mstandard - obvious program requirement violations The code: - is invoked for both format statement and I/O statement constant formats - should be useable by the runtime I/O library for runtime formats - is able to recover from errors - is able to diagnose multiple errors in a single format - has accurate markers for errors - can process (fixed character size) Hollerith strings - generates reasonable error messages for known error scenarios - should not require C++ run-time library support The code is templatized for use with fixed size character kind={1,2,4} input, but only the kind=1 variant is actually exercised. * Review update. * Review update. * Review update. * Improve error processing of unterminated formats. Original-commit: flang-compiler/f18@c04b7518df75bb516f039065d4edcba87dae8210 Reviewed-on: https://github.com/flang-compiler/f18/pull/498
2019-06-26 06:59:30 +08:00
!ERROR: Invalid ASYNCHRONOUS value 'nay'
[flang] Clause 12 semantics -- Check all constraints not otherwise checked (flang-compiler/f18#427) * Clause 12 semantics Check all constraints not otherwise checked during parsing or label scope validation, except for C1201, C1231, and C1233-5. Obvious program requirements are also checked, except for 12.6.2.2 constant format string validation. Original-commit: flang-compiler/f18@e4ec3436184935c0c09f0b61c01f3cb86d84d0b3 Reviewed-on: https://github.com/flang-compiler/f18/pull/427
2019-05-01 02:28:16 +08:00
read(10, asynchronous='nay') ! prog req
[flang] Clause 13 (Input/output editing) syntax and semantic checking (flang-compiler/f18#498) * Clause 13 (Input/output editing) syntax and semantic checking Diagnose: - all clause syntax errors (independent of normal parsing) - all clause constraints - use of non-standard extensions under -Mstandard - obvious program requirement violations The code: - is invoked for both format statement and I/O statement constant formats - should be useable by the runtime I/O library for runtime formats - is able to recover from errors - is able to diagnose multiple errors in a single format - has accurate markers for errors - can process (fixed character size) Hollerith strings - generates reasonable error messages for known error scenarios - should not require C++ run-time library support The code is templatized for use with fixed size character kind={1,2,4} input, but only the kind=1 variant is actually exercised. * Review update. * Review update. * Review update. * Improve error processing of unterminated formats. Original-commit: flang-compiler/f18@c04b7518df75bb516f039065d4edcba87dae8210 Reviewed-on: https://github.com/flang-compiler/f18/pull/498
2019-06-26 06:59:30 +08:00
!ERROR: If ASYNCHRONOUS='YES' appears, UNIT=number must also appear
[flang] Clause 12 semantics -- Check all constraints not otherwise checked (flang-compiler/f18#427) * Clause 12 semantics Check all constraints not otherwise checked during parsing or label scope validation, except for C1201, C1231, and C1233-5. Obvious program requirements are also checked, except for 12.6.2.2 constant format string validation. Original-commit: flang-compiler/f18@e4ec3436184935c0c09f0b61c01f3cb86d84d0b3 Reviewed-on: https://github.com/flang-compiler/f18/pull/427
2019-05-01 02:28:16 +08:00
read(*, asynchronous='yes')
[flang] Clause 13 (Input/output editing) syntax and semantic checking (flang-compiler/f18#498) * Clause 13 (Input/output editing) syntax and semantic checking Diagnose: - all clause syntax errors (independent of normal parsing) - all clause constraints - use of non-standard extensions under -Mstandard - obvious program requirement violations The code: - is invoked for both format statement and I/O statement constant formats - should be useable by the runtime I/O library for runtime formats - is able to recover from errors - is able to diagnose multiple errors in a single format - has accurate markers for errors - can process (fixed character size) Hollerith strings - generates reasonable error messages for known error scenarios - should not require C++ run-time library support The code is templatized for use with fixed size character kind={1,2,4} input, but only the kind=1 variant is actually exercised. * Review update. * Review update. * Review update. * Improve error processing of unterminated formats. Original-commit: flang-compiler/f18@c04b7518df75bb516f039065d4edcba87dae8210 Reviewed-on: https://github.com/flang-compiler/f18/pull/498
2019-06-26 06:59:30 +08:00
!ERROR: If ASYNCHRONOUS='YES' appears, UNIT=number must also appear
[flang] Clause 12 semantics -- Check all constraints not otherwise checked (flang-compiler/f18#427) * Clause 12 semantics Check all constraints not otherwise checked during parsing or label scope validation, except for C1201, C1231, and C1233-5. Obvious program requirements are also checked, except for 12.6.2.2 constant format string validation. Original-commit: flang-compiler/f18@e4ec3436184935c0c09f0b61c01f3cb86d84d0b3 Reviewed-on: https://github.com/flang-compiler/f18/pull/427
2019-05-01 02:28:16 +08:00
read(internal_file, asynchronous='y'//'es')
[flang] Clause 13 (Input/output editing) syntax and semantic checking (flang-compiler/f18#498) * Clause 13 (Input/output editing) syntax and semantic checking Diagnose: - all clause syntax errors (independent of normal parsing) - all clause constraints - use of non-standard extensions under -Mstandard - obvious program requirement violations The code: - is invoked for both format statement and I/O statement constant formats - should be useable by the runtime I/O library for runtime formats - is able to recover from errors - is able to diagnose multiple errors in a single format - has accurate markers for errors - can process (fixed character size) Hollerith strings - generates reasonable error messages for known error scenarios - should not require C++ run-time library support The code is templatized for use with fixed size character kind={1,2,4} input, but only the kind=1 variant is actually exercised. * Review update. * Review update. * Review update. * Improve error processing of unterminated formats. Original-commit: flang-compiler/f18@c04b7518df75bb516f039065d4edcba87dae8210 Reviewed-on: https://github.com/flang-compiler/f18/pull/498
2019-06-26 06:59:30 +08:00
!ERROR: If ID appears, ASYNCHRONOUS='YES' must also appear
[flang] Clause 12 semantics -- Check all constraints not otherwise checked (flang-compiler/f18#427) * Clause 12 semantics Check all constraints not otherwise checked during parsing or label scope validation, except for C1201, C1231, and C1233-5. Obvious program requirements are also checked, except for 12.6.2.2 constant format string validation. Original-commit: flang-compiler/f18@e4ec3436184935c0c09f0b61c01f3cb86d84d0b3 Reviewed-on: https://github.com/flang-compiler/f18/pull/427
2019-05-01 02:28:16 +08:00
read(10, id=id)
[flang] Clause 13 (Input/output editing) syntax and semantic checking (flang-compiler/f18#498) * Clause 13 (Input/output editing) syntax and semantic checking Diagnose: - all clause syntax errors (independent of normal parsing) - all clause constraints - use of non-standard extensions under -Mstandard - obvious program requirement violations The code: - is invoked for both format statement and I/O statement constant formats - should be useable by the runtime I/O library for runtime formats - is able to recover from errors - is able to diagnose multiple errors in a single format - has accurate markers for errors - can process (fixed character size) Hollerith strings - generates reasonable error messages for known error scenarios - should not require C++ run-time library support The code is templatized for use with fixed size character kind={1,2,4} input, but only the kind=1 variant is actually exercised. * Review update. * Review update. * Review update. * Improve error processing of unterminated formats. Original-commit: flang-compiler/f18@c04b7518df75bb516f039065d4edcba87dae8210 Reviewed-on: https://github.com/flang-compiler/f18/pull/498
2019-06-26 06:59:30 +08:00
!ERROR: If ID appears, ASYNCHRONOUS='YES' must also appear
[flang] Clause 12 semantics -- Check all constraints not otherwise checked (flang-compiler/f18#427) * Clause 12 semantics Check all constraints not otherwise checked during parsing or label scope validation, except for C1201, C1231, and C1233-5. Obvious program requirements are also checked, except for 12.6.2.2 constant format string validation. Original-commit: flang-compiler/f18@e4ec3436184935c0c09f0b61c01f3cb86d84d0b3 Reviewed-on: https://github.com/flang-compiler/f18/pull/427
2019-05-01 02:28:16 +08:00
read(10, asynchronous='n'//'o', id=id)
[flang] Clause 13 (Input/output editing) syntax and semantic checking (flang-compiler/f18#498) * Clause 13 (Input/output editing) syntax and semantic checking Diagnose: - all clause syntax errors (independent of normal parsing) - all clause constraints - use of non-standard extensions under -Mstandard - obvious program requirement violations The code: - is invoked for both format statement and I/O statement constant formats - should be useable by the runtime I/O library for runtime formats - is able to recover from errors - is able to diagnose multiple errors in a single format - has accurate markers for errors - can process (fixed character size) Hollerith strings - generates reasonable error messages for known error scenarios - should not require C++ run-time library support The code is templatized for use with fixed size character kind={1,2,4} input, but only the kind=1 variant is actually exercised. * Review update. * Review update. * Review update. * Improve error processing of unterminated formats. Original-commit: flang-compiler/f18@c04b7518df75bb516f039065d4edcba87dae8210 Reviewed-on: https://github.com/flang-compiler/f18/pull/498
2019-06-26 06:59:30 +08:00
!ERROR: If POS appears, REC must not appear
[flang] Clause 12 semantics -- Check all constraints not otherwise checked (flang-compiler/f18#427) * Clause 12 semantics Check all constraints not otherwise checked during parsing or label scope validation, except for C1201, C1231, and C1233-5. Obvious program requirements are also checked, except for 12.6.2.2 constant format string validation. Original-commit: flang-compiler/f18@e4ec3436184935c0c09f0b61c01f3cb86d84d0b3 Reviewed-on: https://github.com/flang-compiler/f18/pull/427
2019-05-01 02:28:16 +08:00
read(10, pos=13, rec=13) jj
[flang] Clause 13 (Input/output editing) syntax and semantic checking (flang-compiler/f18#498) * Clause 13 (Input/output editing) syntax and semantic checking Diagnose: - all clause syntax errors (independent of normal parsing) - all clause constraints - use of non-standard extensions under -Mstandard - obvious program requirement violations The code: - is invoked for both format statement and I/O statement constant formats - should be useable by the runtime I/O library for runtime formats - is able to recover from errors - is able to diagnose multiple errors in a single format - has accurate markers for errors - can process (fixed character size) Hollerith strings - generates reasonable error messages for known error scenarios - should not require C++ run-time library support The code is templatized for use with fixed size character kind={1,2,4} input, but only the kind=1 variant is actually exercised. * Review update. * Review update. * Review update. * Improve error processing of unterminated formats. Original-commit: flang-compiler/f18@c04b7518df75bb516f039065d4edcba87dae8210 Reviewed-on: https://github.com/flang-compiler/f18/pull/498
2019-06-26 06:59:30 +08:00
!ERROR: If DECIMAL appears, FMT or NML must also appear
!ERROR: If BLANK appears, FMT or NML must also appear
!ERROR: Invalid DECIMAL value 'Punkt'
[flang] Clause 12 semantics -- Check all constraints not otherwise checked (flang-compiler/f18#427) * Clause 12 semantics Check all constraints not otherwise checked during parsing or label scope validation, except for C1201, C1231, and C1233-5. Obvious program requirements are also checked, except for 12.6.2.2 constant format string validation. Original-commit: flang-compiler/f18@e4ec3436184935c0c09f0b61c01f3cb86d84d0b3 Reviewed-on: https://github.com/flang-compiler/f18/pull/427
2019-05-01 02:28:16 +08:00
read(10, decimal='Punkt', blank='null') jj
[flang] Clause 13 (Input/output editing) syntax and semantic checking (flang-compiler/f18#498) * Clause 13 (Input/output editing) syntax and semantic checking Diagnose: - all clause syntax errors (independent of normal parsing) - all clause constraints - use of non-standard extensions under -Mstandard - obvious program requirement violations The code: - is invoked for both format statement and I/O statement constant formats - should be useable by the runtime I/O library for runtime formats - is able to recover from errors - is able to diagnose multiple errors in a single format - has accurate markers for errors - can process (fixed character size) Hollerith strings - generates reasonable error messages for known error scenarios - should not require C++ run-time library support The code is templatized for use with fixed size character kind={1,2,4} input, but only the kind=1 variant is actually exercised. * Review update. * Review update. * Review update. * Improve error processing of unterminated formats. Original-commit: flang-compiler/f18@c04b7518df75bb516f039065d4edcba87dae8210 Reviewed-on: https://github.com/flang-compiler/f18/pull/498
2019-06-26 06:59:30 +08:00
!ERROR: If ROUND appears, FMT or NML must also appear
!ERROR: If PAD appears, FMT or NML must also appear
[flang] Clause 12 semantics -- Check all constraints not otherwise checked (flang-compiler/f18#427) * Clause 12 semantics Check all constraints not otherwise checked during parsing or label scope validation, except for C1201, C1231, and C1233-5. Obvious program requirements are also checked, except for 12.6.2.2 constant format string validation. Original-commit: flang-compiler/f18@e4ec3436184935c0c09f0b61c01f3cb86d84d0b3 Reviewed-on: https://github.com/flang-compiler/f18/pull/427
2019-05-01 02:28:16 +08:00
read(10, pad='no', round='nearest') jj
!ERROR: ID kind (2) is smaller than default INTEGER kind (4)
read(10, id=id2, asynchronous='yes') jj
9 continue
end
[flang] Check that various variables referenced in I/O statements may be defined A number of I/O syntax rules involve variables that will be written to, and must therefore be definable. This includes internal file variables, IOSTAT= and IOMSG= specifiers, most INQUIRE statement specifiers, a few other specifiers, and input variables. This patch checks for these violations, and implements several additional I/O TODO constraint checks. Differential Revision: https://reviews.llvm.org/D86557
2020-08-26 01:34:33 +08:00
subroutine s(aa, n)
integer :: aa(5,*)
integer, intent(in) :: n
integer :: bb(10), vv(10)
type tt
real :: x, y, z
end type tt
type(tt) :: qq(20)
vv = 1
read(*, *) aa(n,1)
read(*, *) aa(n:n+2,2)
read(*, *) qq(2:5)%y
!ERROR: Input variable 'n' must be definable
read(*, *) n
[flang] Semantic checks for bad usage of whole assumed-size arrays The semantics pass currently checks for several constraints that apply to the use of whole assumed-size arrays in various contexts, but C1002 wasn't really implemented. This patch implements C1002 by disallowing the use of whole assumed-size arrays in expressions and variables unless specifically allowed by the context. This centralizes the error reporting, which has been improved with a link to the array's declaration. Differential revision: https://reviews.llvm.org/D88691
2020-10-02 03:08:04 +08:00
!ERROR: Whole assumed-size array 'aa' may not appear here without subscripts
[flang] Check that various variables referenced in I/O statements may be defined A number of I/O syntax rules involve variables that will be written to, and must therefore be definable. This includes internal file variables, IOSTAT= and IOMSG= specifiers, most INQUIRE statement specifiers, a few other specifiers, and input variables. This patch checks for these violations, and implements several additional I/O TODO constraint checks. Differential Revision: https://reviews.llvm.org/D86557
2020-08-26 01:34:33 +08:00
read(*, *) aa
end