Download this file
1 2 3 4 5 6 7 8
subroutine test_png(filename,i) character(256)::filename integer::i i=index(filename,'.png',back=.true.) return end subroutine test_png