Chức năng không có loại ngầm

Question

Tôi đang cố gắng học cách làm việc với các chức năng. Tôi có đoạn mã sau:

program main 
    implicit none 

    write(*,*) test(4) 
end program 

integer function test(n) 
    implicit none 
    integer, intent(in) :: n 
    integer :: i, ans 

    ans=1 
    do i=1,n 
    ans=ans*i 
    enddo 

    test=ans 
end function test 

Khi tôi biên dịch (với gfortran 4.1.2), tôi nhận được lỗi sau:

In file test.f90:4 

    write(*,*) test(4) 
      1 
Error: Function 'test' at (1) has no IMPLICIT type 

Answer 1

Di chuyển dòng

end program 

đến cùng của tệp nguồn và tại vị trí của nó, hãy viết dòng

contains 

Như bạn đã viết chương trình của bạn nó không có kiến ​​thức về chức năng test, đó là những gì trình biên dịch nói với bạn. Tôi đã gợi ý một trong những cách mà bạn có thể cung cấp cho chương trình những kiến ​​thức cần thiết, nhưng có những cách khác. Vì bạn là một người học, tôi sẽ để bạn tìm ra những gì đang xảy ra chi tiết.

Answer 2

Chỉ trong trường hợp, một người nào đó có cùng một vấn đề một cách khác (đặc biệt là đối với trường hợp được thảo luận trong các bình luận) là thêm

integer,external :: test 

sau

implicit none 

trong chương trình chính.

Answer 3

Chỉ cần đặt này:

program main 
    implicit none 

nguyên kiểm tra

write(*,*) test(4) 
end program 
... 

Bạn cần phải khai báo hàm như là một biến cho trình biên dịch biết kiểu trả về của hàm.