Skip to content
Projects
Groups
Snippets
Help
This project
Loading...
Sign in / Register
Toggle navigation
R
riscv-gcc-1
Overview
Overview
Details
Activity
Cycle Analytics
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Charts
Issues
0
Issues
0
List
Board
Labels
Milestones
Merge Requests
0
Merge Requests
0
CI / CD
CI / CD
Pipelines
Jobs
Schedules
Charts
Wiki
Wiki
Snippets
Snippets
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Charts
Create a new issue
Jobs
Commits
Issue Boards
Open sidebar
lvzhengyang
riscv-gcc-1
Commits
6778b96c
Commit
6778b96c
authored
May 29, 2005
by
Francois-Xavier Coudert
Committed by
François-Xavier Coudert
May 29, 2005
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
* gfortran.dg/output_exponents_1.f90: New test.
From-SVN: r100319
parent
95af2a1f
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
17 additions
and
0 deletions
+17
-0
gcc/testsuite/ChangeLog
+4
-0
gcc/testsuite/gfortran.dg/output_exponents_1.f90
+13
-0
No files found.
gcc/testsuite/ChangeLog
View file @
6778b96c
2005
-
05
-
29
Francois
-
Xavier
Coudert
<
coudert
@clipper
.
ens
.
fr
>
2005
-
05
-
29
Francois
-
Xavier
Coudert
<
coudert
@clipper
.
ens
.
fr
>
*
gfortran
.
dg
/
output_exponents_1
.
f90
:
New
test
.
2005
-
05
-
29
Francois
-
Xavier
Coudert
<
coudert
@clipper
.
ens
.
fr
>
*
gfortran
.
dg
/
dollar_edit_descriptor
-
1
.
f
:
New
test
.
*
gfortran
.
dg
/
dollar_edit_descriptor
-
1
.
f
:
New
test
.
2005
-
05
-
28
Mark
Mitchell
<
mark
@codesourcery
.
com
>
2005
-
05
-
28
Mark
Mitchell
<
mark
@codesourcery
.
com
>
...
...
gcc/testsuite/gfortran.dg/output_exponents_1.f90
0 → 100644
View file @
6778b96c
! { dg-do run }
! PR 21376
! we used to take the logarithm of zero in this special case
character
*
10
c
write
(
c
,
'(e10.4)'
)
1.0
if
(
c
/
=
"0.1000E+01"
)
call
abort
write
(
c
,
'(e10.4)'
)
0.0
if
(
c
/
=
"0.0000E+00"
)
call
abort
write
(
c
,
'(e10.4)'
)
1.0d100
if
(
c
/
=
"0.1000+101"
)
call
abort
write
(
c
,
'(e10.4)'
)
1.0d-102
if
(
c
/
=
"0.1000-101"
)
call
abort
end
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment