1 2 3 4 5 6 7 8 9 10 11 12 13 14 | program cheers implicit none character(len=1) :: reply character(len=20) :: name write(*,*)'please input your name' read(*,*)name write(*,*)'happy new year',name write(*,*)'do you want to play a game?(y/n)' read(*,*)reply if (reply=='n') write(*,*)'no you must play' end if end program cheers |
cHJvZ3JhbSBjaGVlcnMKaW1wbGljaXQgbm9uZQpjaGFyYWN0ZXIobGVuPTEpIDo6IHJlcGx5CmNoYXJhY3RlcihsZW49MjApIDo6IG5hbWUKd3JpdGUoKiwqKSdwbGVhc2UgaW5wdXQgeW91ciBuYW1lJwpyZWFkKCosKiluYW1lCndyaXRlKCosKiknaGFwcHkgbmV3IHllYXInLG5hbWUKd3JpdGUoKiwqKSdkbyB5b3Ugd2FudCB0byBwbGF5IGEgZ2FtZT8oeS9uKScKcmVhZCgqLCopcmVwbHkKaWYgKHJlcGx5PT0nbicpIHdyaXRlKCosKiknbm8geW91IG11c3QgcGxheScKZW5kIGlmCgoKZW5kIHByb2dyYW0gY2hlZXJz
prog.f95:11.3: end if 1 Error: Expecting END PROGRAM statement at (1)
-
result: Compilation error (maybe you wish to see an example for Fortran)



