|
|
1.1 root 1: character*50 path
2: integer getcwd, chdir
3:
4: ier = getcwd(path)
5: write(*,*) ier, path
6: ier = chdir("..")
7: ier = getcwd(path)
8: write(*,*) ier, path
9: end
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.