デバッグの例

program heikin                          ! 1

implicit none                           ! 2

integer :: i,n                          ! 3

real :: s,h                             ! 4

real, dimension (100) :: a              ! 5

                                        ! 6

 write(*,*) 'n='                        ! 7

 read(*,*) n                            ! 8

 do i=1,n                               ! 9

   write(*,'(1x,a2,i2,a2)') 'a(',i,')=' !10

   read (*,*) a(i)                      !11

 end do                                 !12

                                        !13

 s=0.0                                  !14

                                        !15

 do i=0,n                               !16

  s=s+a(i)                              !17

 end do                                 !18

                                        !19

 h=s/n                                  !20

                                        !21

 write(*,*) 'heikin',h                  !22

 stop                                   !23

                                        !24

end program heikin                      !25