#NEWLINE# def test_numbersymbol_f_code( ) : #NEWLINE# #INDENT# routine = make_routine ( 'test' , ( pi ** Catalan ) ) #NEWLINE# code_gen = FCodeGen ( ) #NEWLINE# source = get_string ( code_gen . dump_f95 , [ expected ] ) #NEWLINE# expected = 'REAL*8 function test()\nimplicit none\nREAL*8, parameter :: Catalan = 0.915965594177219d0\nREAL*8, parameter :: pi = 3.14159265358979d0\ntest = pi**Catalan\nend function\n' #NEWLINE# assert ( source == expected )