fork download

 
interface 
implicit none
subroutine swap(x,y)
real, intent(inout):: x,y,c
end interface 
 
 
 
program swapping
 
implicit none
 
real ,intent(inout):: a,b
read*, a,b
call swap(a,b)
print*, a,b
end program swapping
 
 
subroutine swap(x,y)
implicit none
real,intent(inout)::x,y,c
c=x
x=y
y=x
end subroutine swap
 
 
 
 

prog.f95:3.13:

implicit none
             1
Error: Unexpected IMPLICIT NONE statement in INTERFACE block at (1)
prog.f95:6.3:

end interface 
   1
Error: Expecting END SUBROUTINE statement at (1)
prog.f95:10.16:

program swapping
                1
Error: Unexpected PROGRAM statement at (1) in INTERFACE body
prog.f95:15.10:

read*, a,b
          1
Error: Unexpected READ statement at (1) in INTERFACE body
prog.f95:16.14:

call swap(a,b)
              1
Error: Unexpected CALL statement at (1) in INTERFACE body
prog.f95:17.11:

print*, a,b
           1
Error: Unexpected WRITE statement at (1) in INTERFACE body
prog.f95:18.3:

end program swapping
   1
Error: Expecting END SUBROUTINE statement at (1)
prog.f95:21:

subroutine swap(x,y)
1
Error: Unclassifiable statement at (1)
prog.f95:22.13:

implicit none
             1
Error: Duplicate IMPLICIT NONE statement at (1)
prog.f95:23.21:

real,intent(inout)::x,y,c
                     1
Error: Symbol 'x' at (1) already has basic type of REAL
prog.f95:24.3:

c=x
   1
Error: Unexpected assignment statement at (1) in INTERFACE body
prog.f95:25.3:

x=y
   1
Error: Unexpected assignment statement at (1) in INTERFACE body
prog.f95:26.3:

y=x
   1
Error: Unexpected assignment statement at (1) in INTERFACE body
Error: Unexpected end of file in 'prog.f95'

Standard output is empty