allocate_coin_toss in Fortran Wiki

Originally [posted](http://groups.google.com/group/comp.lang.fortran/msg/5224789c4d7e7b3e)
to [[comp lang fortran|comp.lang.fortran]].
~~~~~~~~~~ {: lang=fortran }
program allocate_coin_toss
 implicit none
 real, dimension(:,:), allocatable :: a
 real :: u
 call random_number(u)
 if (u < 0.5) then
 allocate(a(5,8))
 else
 allocate(a(7,4))
 end if
 print *, shape(a)
 deallocate(a)
end program allocate_coin_toss
~~~~~~~~~~
category: code