Ticket #47049: btest.f90

File btest.f90, 300 bytes (added by basmac, 10 years ago)
Line 
1! Compile command for gfortran, to test backtrace:
2! gfortran -g -O0 -fbacktrace -ffpe-trap=zero btest.f90
3
4implicit none
5real x, y, z
6
7print *, 'Start program.'
8x = 3.0
9y = 0.0
10
11print *, 'Divide by zero.'
12z = x / y
13
14print *, 'Print result.'
15print *, '  Result "z" = ', z
16
17print *, 'Normal end.'
18end