fork download

program TEST
	! your code goes here
	! (2^((2^(1031-1))-1))*(2-(2^-3705346855594118253554271520278013051304639509300498049262642688253220148476920))
 
	real(16) :: x
	real(16), parameter    :: a = 2
	real(16), parameter    :: b = 1031
	real(16), parameter    :: c = 1
	real(16), parameter    :: d = -3705346855594118253554271520278013051304639509300498049262642688253220148476920
	x = (a ** ((a ** (b - c)) - c)) * (a - (a ** d))
	write(*,*) x
 
	stop
end

prog.f95:5:1:

  real(16) :: x
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:6:1:

  real(16), parameter    :: a = 2
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:7:1:

  real(16), parameter    :: b = 1031
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:8:1:

  real(16), parameter    :: c = 1
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:9:1:

  real(16), parameter    :: d = -3705346855594118253554271520278013051304639509300498049262642688253220148476920
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:9:111:

  real(16), parameter    :: d = -3705346855594118253554271520278013051304639509300498049262642688253220148476920
                                                                                                               1
Error: Integer too big for its kind at (1). This check can be disabled with the option -fno-range-check
prog.f95:10:1:

  x = (a ** ((a ** (b - c)) - c)) * (a - (a ** d))
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:11:1:

  write(*,*) x
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:13:1:

  stop
 1
Warning: Nonconforming tab character at (1) [-Wtabs]
prog.f95:10:7:

  x = (a ** ((a ** (b - c)) - c)) * (a - (a ** d))
       1
Error: Arithmetic overflow at (1)

Standard output is empty