온라인 포트란 컴파일러

program main
    print *, 'Hello, World!'
end program

program main
    implicit none
    character(len=20) :: name
    integer :: age
    real :: height
    name = "Alice"
    age = 30
    height = 5.6
    print *, trim(name), " is", age, "years old"
end program

program main
    implicit none
    integer :: x
    x = 10
    if (x > 0) then
        print *, "Positive"
    else if (x == 0) then
        print *, "Zero"
    else
        print *, "Negative"
    end if
end program

program main
    implicit none
    integer :: i
    do i = 1, 5
        print *, "Count:", i
    end do

    i = 1
    do while (i <= 3)
        print *, "While:", i
        i = i + 1
    end do
end program

program main
    implicit none
    integer :: factorial
    print *, factorial(5)
    print *, factorial(10)
end program

recursive function factorial(n) result(res)
    implicit none
    integer, intent(in) :: n
    integer :: res
    if (n <= 1) then
        res = 1
    else
        res = n * factorial(n - 1)
    end if
end function

program main
    implicit none
    integer :: nums(5) = [1, 2, 3, 4, 5]
    real :: matrix(2, 2)
    integer :: i

    print *, "Sum:", sum(nums)
    print *, "Max:", maxval(nums)

    matrix = reshape([1.0, 2.0, 3.0, 4.0], [2, 2])
    print *, "Matrix(1,2):", matrix(1, 2)
end program

module shapes
    implicit none
    type :: Circle
        real :: radius
    end type
contains
    real function area(c)
        type(Circle), intent(in) :: c
        area = 3.14159 * c%radius ** 2
    end function
end module

program main
    use shapes
    implicit none
    type(Circle) :: c
    c%radius = 5.0
    print *, "Area:", area(c)
end program

program main
    implicit none
    integer :: ios
    real :: x
    character(len=50) :: errmsg

    read(*, *, iostat=ios, iomsg=errmsg) x
    if (ios /= 0) then
        print *, "Read error (using default)"
        x = 0.0
    end if
    print *, "Value:", x
end program

program main
    implicit none
    integer :: unit = 10, ios
    character(len=100) :: line

    open(unit=unit, file="output.txt", status="replace", iostat=ios)
    write(unit, *) "Hello, File!"
    close(unit)

    open(unit=unit, file="output.txt", status="old")
    read(unit, "(A)") line
    close(unit)
    print *, trim(line)
end program

program main
    implicit none
    integer :: i
    real :: v(5) = [1.0, 4.0, 9.0, 16.0, 25.0]
    real :: sq(5)

    sq = sqrt(v)

    print *, "Original:", v
    print *, "Sqrt:    ", sq
    print *, "Dot product:", dot_product(v, sq)
end program