Subversion Repositories openrisc_me

c Copyright 2007 Free Software Foundation, Inc.

c Copyright 2007 Free Software Foundation, Inc.

c This program is free software; you can redistribute it and/or modify

c This program is free software; you can redistribute it and/or modify

c it under the terms of the GNU General Public License as published by

c it under the terms of the GNU General Public License as published by

c the Free Software Foundation; either version 3 of the License, or

c the Free Software Foundation; either version 3 of the License, or

c (at your option) any later version.

c (at your option) any later version.

c

c

c This program is distributed in the hope that it will be useful,

c This program is distributed in the hope that it will be useful,

c but WITHOUT ANY WARRANTY; without even the implied warranty of

c but WITHOUT ANY WARRANTY; without even the implied warranty of

c MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

c MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

c GNU General Public License for more details.

c GNU General Public License for more details.

c

c

c You should have received a copy of the GNU General Public License

c You should have received a copy of the GNU General Public License

c along with this program.  If not, see <http://www.gnu.org/licenses/>.

c along with this program.  If not, see <http://www.gnu.org/licenses/>.

      real*8 a,b

      real*8 a,b

      complex*16 c

      complex*16 c

      a = 1000

      a = 1000

      b = -50

      b = -50

      c = cmplx(a,b)

      c = cmplx(a,b)

      write(*,*) s

      write(*,*) s

      stop

      stop

      end

      end