1C
2C Copyright (c) 1980 The Regents of the University of California.
3C All rights reserved.
4C
5C %sccs.include.proprietary.f%
6C
7C @(#)pe.f 5.2 (Berkeley) 04/12/91
8C
9
10 program pe
11 x = 123.456
12 write(*,'(3pe8.1,5x,0pe9.5e0)') x, 123456789e14
13 end
14