diff options
| author | V Donaldson <vdonaldson@nvidia.com> | 2022-01-04 10:34:07 -0800 |
|---|---|---|
| committer | V Donaldson <vdonaldson@nvidia.com> | 2022-01-04 10:34:07 -0800 |
| commit | 5244bb18abbf70d2f4475fa8facb34d4d8af0d32 (patch) | |
| tree | 6559dcb2fb92914266d65a49d214d5326c81d033 /flang/test/Semantics/io08.f90 | |
| parent | b061d86c6930acef1b246874adf2f11e9120894c (diff) | |
| download | llvm-5244bb18abbf70d2f4475fa8facb34d4d8af0d32.tar.gz | |
Modify an IO format error messagevkd1
F18 constraint C1308 is:
For the G edit descriptor, e shall not be specified if w is zero.
For an edit descriptor such as 'G0.2E4', change the error message from:
error: Unexpected 'e' in 'G0' edit descriptor
To:
error: A 'G0' edit descriptor must not have an 'e' value
Diffstat (limited to 'flang/test/Semantics/io08.f90')
| -rw-r--r-- | flang/test/Semantics/io08.f90 | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/flang/test/Semantics/io08.f90 b/flang/test/Semantics/io08.f90 index c074e1562e22..843028acfd5b 100644 --- a/flang/test/Semantics/io08.f90 +++ b/flang/test/Semantics/io08.f90 @@ -189,10 +189,10 @@ !ERROR: Expected 'G' edit descriptor '.d' value write(*,'(G4)') - !ERROR: Unexpected 'e' in 'G0' edit descriptor + !ERROR: A 'G0' edit descriptor must not have an 'e' value write(*,'(G0.8e)') - !ERROR: Unexpected 'e' in 'G0' edit descriptor + !ERROR: A 'G0' edit descriptor must not have an 'e' value write(*,'(G0.8e2)') !ERROR: Kind parameter '_' character in format expression |