File: test_semicolon.f90

package info (click to toggle)
fortran-language-server 3.2.2%2Bdfsg-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 2,268 kB
  • sloc: python: 9,688; f90: 1,195; fortran: 30; makefile: 28; ansic: 20
file content (19 lines) | stat: -rw-r--r-- 535 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
program test_semicolon
    implicit none
    integer :: a = 1; character(len=1) :: v; real, parameter :: p = 0.1E-4; character(len=10), parameter :: str = "a;val;that"
    character(len=100), parameter :: str2 = "a;string;"&
    "that;becomes"//       &
    ";"&
    &"multiline";integer&
    :: b;real           &
    &,&
    parameter&
    ::&
    c&
    =&
    100&
    &0090;real :: d;real::e;real::f
    print*, "one";
    print*, str2
    print*, a; print*, p; ! a; comment; that;contains; semi-colons
end program test_semicolon