fork(1) download
copy 
  1. DIMENSION M(3, 4)
  2. READ*,((M(I, J), I= 1, 3), J = 1, 4)
  3. PRINT 20,((M(I,J),J = 1, 4), I = I, 3)
  4. 20 FORMAT(2X, 4(F10.2))
  5. STOP 
  6. END
  7.  
Success #stdin #stdout 0s 5260KB
comments (?)
stdin
copy 
1 2 3 4 5
2 3 4 5 6
3 4 5 6 7
stdout
copy 

	

		
	 
	
	
			

					
			
			
			
			
			
			
			
			

			
			
			
		

	
		
		

			

			                        







			
			

				

	
					
					 https://ideone.com/12pb1Z
					
					
					
					
					

												

												
						
						

					

					
					
					

						
language:

						
Fortran (gfortran 8.3)

					

					

						
created:
								
						
3 days ago

					

					

						
visibility:

						

							 public																												
							
							

								
							

						

					

										
										

					
					 Share or Embed source code
					
					
					
					

						
						
						
						
						
						
						
					

					
						
	
	
	
	
					
					
					
					
					 
					
					
					
					 
					
					
					
					
					
					

					

					

					
						
					

					


	
Discover > Sphere Engine API

	
The brand new service which powers Ideone!

	
	
Discover > IDE Widget

    
Widget for compiling and running the source code in a web browser!