program main implicit none real :: a, root a = 16.0 root = sqrt(a) print *, rootend program
Standard input is empty
4.00000000
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!