fork download

copy

 
 
program GCD
 
module types
integer, parameter :: dp=selected_integer_kind(15)
end module
program GCDenom
use types
implicit none
interface
function GCD(a,b)
         use types
         integer::q,r
         integer, intent(in)::a,b
         end function
         end interface
 
integer(dp) ::a,b,c, n, i
integer dimensions(:,:) allocatable::gamma
 
write(*,*) "How many integers to compare?"
read(*,*) n
allocate (gamma(n))
write(*,*) "Enter Values"
   read(*,*) gamma(n)
   a=gamma(1)
   b=gamma(2)
 
   if (n<3) then
    c=gcd(a,b)
   write(*,*) "GCD =", c
   else
   do i= 3,n
   c=gcd(a,b)
   a=c
   b=gamma(i)
   end do
   end if
   write(*,*) "GCD = ", c
 
   stop
   end program GCdenom
 
function GCD(a,b)
use types
implicit none
real(dp)::q,r
integer, intent(in)::a,b
         do
         if (b==0) then
         gcd=a
         return
           else
           q=floor(real(a)/real(b))
           r=((b*q)/a)
           a=b
           b=r
         end if
         end do
 
end function
 
 

prog.f95:5.12:

module types
            1
Error: Unexpected MODULE statement at (1)
prog.f95:6.25:

integer, parameter :: dp=selected_integer_kind(15)
                         1
Error: Function 'selected_integer_kind' in initialization expression at (1) must be an intrinsic or a specification function
prog.f95:7.3:

end module
   1
Error: Expecting END PROGRAM statement at (1)
prog.f95:8.15:

program GCDenom
               1
Error: Unexpected PROGRAM statement at (1)
prog.f95:9.9:

use types
         1
Error: Unexpected USE statement at (1)
prog.f95:10.13:

implicit none
             1
Error: Unexpected IMPLICIT NONE statement at (1)
prog.f95:11.9:

interface
         1
Error: Unexpected INTERFACE statement at (1)
prog.f95:12:

function GCD(a,b)
1
Error: Unclassifiable statement at (1)
prog.f95:13.18:

         use types
                  1
Error: Unexpected USE statement at (1)
prog.f95:14.21:

         integer::q,r
                     1
Error: Unexpected data declaration statement at (1)
prog.f95:15.33:

         integer, intent(in)::a,b
                                 1
Error: Unexpected data declaration statement at (1)
prog.f95:16.12:

         end function
            1
Error: Expecting END PROGRAM statement at (1)
prog.f95:17.12:

         end interface
            1
Error: Expecting END PROGRAM statement at (1)
prog.f95:19.8:

integer(dp) ::a,b,c, n, i
        1
Error: Parameter 'dp' at (1) has not been declared or is a variable, which does not reduce to a constant expression
prog.f95:20.23:

integer dimensions(:,:) allocatable::gamma
                       1
Error: Syntax error in data declaration at (1)
prog.f95:24.15:

allocate (gamma(n))
               1
Error: Syntax error in ALLOCATE statement at (1)
prog.f95:26.18:

   read(*,*) gamma(n)
                  1
Error: Syntax error in READ statement at (1)
prog.f95:31.9:

    c=gcd(a,b)
         1
Error: Symbol at (1) is not appropriate for an expression
prog.f95:35.8:

   c=gcd(a,b)
        1
Error: Symbol at (1) is not appropriate for an expression
prog.f95:43.22:

   end program GCdenom
                      1
Error: Expected label 'gcd' for END PROGRAM statement at (1)
prog.f95:45:

function GCD(a,b)
1
Error: Unclassifiable statement at (1)
prog.f95:46.9:

use types
         1
Error: Unexpected USE statement at (1)
prog.f95:47.13:

implicit none
             1
Error: Unexpected IMPLICIT NONE statement at (1)
prog.f95:48.5:

real(dp)::q,r
     1
Error: Parameter 'dp' at (1) has not been declared or is a variable, which does not reduce to a constant expression
prog.f95:49.24:

integer, intent(in)::a,b
                        1
Error: Unexpected data declaration statement at (1)
Fatal Error: Error count reached limit of 25.

Standard output is empty