face_test_styles Program

Uses

  • program~~face_test_styles~~UsesGraph program~face_test_styles face_test_styles module~face face program~face_test_styles->module~face iso_fortran_env iso_fortran_env module~face->iso_fortran_env

Calls

program~~face_test_styles~~CallsGraph program~face_test_styles face_test_styles interface~colorize colorize program~face_test_styles->interface~colorize proc~colorize_default colorize_default interface~colorize->proc~colorize_default proc~color_index color_index proc~colorize_default->proc~color_index proc~upper upper proc~colorize_default->proc~upper proc~style_index style_index proc~colorize_default->proc~style_index

Contents

Source Code


Source Code

program face_test_styles
!< FACE test.
use face

implicit none

print '(A)', colorize('Hello', color_fg='red')//colorize(' World', color_fg='blue', style='bold_on'         )
print '(A)', colorize('Hello', color_fg='red')//colorize(' World', color_fg='blue', style='italics_on'      )
print '(A)', colorize('Hello', color_fg='red')//colorize(' World', color_fg='blue', style='underline_on'    )
print '(A)', colorize('Hello', color_fg='red')//colorize(' World', color_fg='blue', style='inverse_on'      )
print '(A)', colorize('Hello', color_fg='red')//colorize(' World', color_fg='blue', style='strikethrough_on')
print '(A)', colorize('Hello', color_fg='red')//colorize(' World', color_fg='blue', style='framed_on'       )
print '(A)', colorize('Hello', color_fg='red')//colorize(' World', color_fg='blue', style='encircled_on'    )
print '(A)', colorize('Hello', color_fg='red')//colorize(' World', color_fg='blue', style='overlined_on'    )
endprogram face_test_styles