Home | History | Annotate | Line # | Download | only in gdb.fortran 
      1 ! Copyright 2023-2024 Free Software Foundation, Inc.
      2 !
      3 ! This program is free software; you can redistribute it and/or modify
      4 ! it under the terms of the GNU General Public License as published by
      5 ! the Free Software Foundation; either version 3 of the License, or
      6 ! (at your option) any later version.
      7 !
      8 ! This program is distributed in the hope that it will be useful,
      9 ! but WITHOUT ANY WARRANTY; without even the implied warranty of
     10 ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
     11 ! GNU General Public License for more details.
     12 !
     13 ! You should have received a copy of the GNU General Public License
     14 ! along with this program.  If not, see <http://www.gnu.org/licenses/>.
     15 
     16 module mod
     17 implicit none
     18 
     19 contains
     20   subroutine mod_bar
     21     integer :: I = 3
     22 
     23     goto 100
     24 
     25     entry mod_foo
     26     I = 33
     27 
     28 100 print *, I
     29   end subroutine mod_bar
     30 end module mod
     31 
     32 
     33 subroutine bar(I,J,K,I1)
     34   integer :: I,J,K,L,I1
     35   integer :: A
     36   real :: C
     37 
     38   A = 0
     39   C = 0.0
     40 
     41   A = I + K + I1
     42   goto 300
     43 
     44   entry foo(J,K,L,I1)
     45   A = J + K + L + I1
     46 
     47 200 C = J
     48   goto 300
     49 
     50   entry foobar(J)
     51   goto 200
     52 
     53 300 A = C + 1
     54   C = J * 1.5
     55 
     56   return
     57 end subroutine
     58 
     59 program TestEntryPoint
     60   use mod
     61 
     62   call foo(11,22,33,44)
     63   call bar(444,555,666,777)
     64   call foobar(1)
     65 
     66   call mod_foo()
     67 end program TestEntryPoint
     68