Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
doubleprecision, | public | :: | y | ||||
doubleprecision, | public | :: | z |
subroutine test_dnum0() doubleprecision :: y, z Y=DNUM0('CI = 10 * sin(3.1416/4)') Z=DNUM0('CI') call unit_test_start('dnum0',msg='') call unit_test('dnum0', y.eq.z.and.almost(y,10*sin(3.1416d0/4d0),15),& & 'checking CI',dnum0('CI')+bug,dnum0('10*sin(3.1416/4)')+bug,10*sin(3.1416d0/4.0d0)) call unit_test_end('dnum0',msg='') end subroutine test_dnum0