test_print_file_name_c Subroutine

public subroutine test_print_file_name_c(fileName) bind(c,name='test_print_file_name')

Arguments

Type IntentOptional Attributes Name
character(kind=C_CHAR, len=1), dimension(*) :: fileName

Calls

proc~~test_print_file_name_c~~CallsGraph proc~test_print_file_name_c test_print_file_name_c proc~get_c_string_length get_c_string_length proc~test_print_file_name_c->proc~get_c_string_length proc~get_fortran_string get_fortran_string proc~test_print_file_name_c->proc~get_fortran_string

Source Code

  subroutine test_print_file_name_c(fileName) bind(c,name='test_print_file_name')
    character(kind=C_CHAR, len=1), dimension(*) :: fileName

    character(len=256) :: fileName_f
    integer :: nchar

    nchar = get_c_string_length(fileName)

    if(nchar.gt.256) stop "c string length is restricted to 256"

    fileName_f = get_fortran_string(fileName,nchar)

    write(*,*) "Tests: ", fileName_f(1:nchar)
  end subroutine test_print_file_name_c