Remove old autovect-branch by moving to "dead" directory.
[official-gcc.git] / old-autovect-branch / gcc / testsuite / gfortran.fortran-torture / execute / entry_10.f90
blob0c21d76e30366de483c24759302a5b692f0ebfcb
1 function foo ()
2 foo = 4
3 foo = foo / 2
4 return
5 entry bar ()
6 bar = 9
7 bar = bar / 3
8 end
10 program entrytest
11 if (foo () .ne. 2) call abort ()
12 if (bar () .ne. 3) call abort ()
13 end